Archiv der Kategorie: Officesuite

VBA: Werte in Excel mittels Zufallszahl verändern

Sub RandomizeColumn()
    Dim row As Integer
    Dim originalValue As Variant
    Dim randomFactor As Variant
    Dim column As Integer
    column = 5      'randomize the values of the 5th column

    For row = 2 To 10000      'begin with the 2nd row an end with the 10000th row
        originalValue = Cells(row, column).Value
        randomFactor = (WorksheetFunction.RandBetween(-9, 9) * 0.01) + 1
        Cells(row, column) = randomFactor * originalValue
    Next row
End Sub

Outlook: Sourcecode von E-mail einsehen

Variante 1: Es gibt die Möglichkeit über Email öffnen -> Tab: Nachricht -> Aktionen -> Weitere Aktionen -> Quelltext anzeigen

Diese Variante funktionierte bei meinem Outlook in den meisten Fällen, aber es gab auch einzelne automatisch generierte Emails, bei denen der Menüpunkt Quelltext anzeigen nicht angezeigt wurde. Die folgende Variante 2 funktionierte jedoch auch in diesen Fällen:

Variante 2: Email öffnen -> Tab: Datei -> Eigenschaften wird im Textfeld Internetkopfzeilen der Quelltext des Email-Headers angezeigt.