Halo Nick,
Ein Hallo zu Beginn und ein Gruß am Ende lässt den Beitrag doch gleich viel persönlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst, sind es doch Menschen die den Beitrag lesen und keine Maschinen. Da sollte doch ein wenig Zeit für diese paar Worte da sein.
Falls ich mal einen Brief schreibe, dann steht zu Beginn Hallo … oder eine ähnliche Anrede und zum Schluss ein Gruß ... Ich vermute, bei Dir sieht es nicht viel anders aus. Nach meiner Auffassung ist ein Beitrag so etwas Ähnliches wie ein Brief und weshalb sollte ich mich da zwingen, eine andere Form zu benutzen?
Versuche es auch mal und Dir wird auffallen: wenn sich jeder Benutzer Zeit für höfliche Umgangsformen nimmt, führt das zu einer besseren Unterhaltung im Forum und keiner fühlt sich schlecht behandelt.
Option Explicit
Sub Nick()
Make sure Einnahmen is active
With Sheets("Einnahmen")
' Determine the next empty row
NextRow = Application.WorksheetFunction.CountA(.Range("A:A")) + 1
' Transfer the Month
.Cells(NextRow, 1) = ListBox1.Text
' Transfer the Year
.Cells(NextRow, 2) = ListBox2.Text
' Transfer the figure
.Cells(NextRow, 3) = CDbl(Format(TextBox1.Text, "#,##0.00 €"))
' Transfer the kind
If OptionGehalt Then .Cells(NextRow, 4) = "Gehalt"
End With
' Make sure Entgeltabrechnung is active
With Sheets("Entgeltabrechnung")
' Determine the next empty row
NextRow = Application.WorksheetFunction.CountA(.Range("A:A")) + 1
' Transfer the figure
.Cells(NextRow, 1) = TextBox1.Text
' Transfer the Year
.Cells(NextRow, 2) = ListBox2.Text
End With
' Change to Einnahmen
If OptionSonstiges Then Sheets("Einnahmen").Cells(NextRow, 4) = "Sonstiges"
' Close it
Unload Einnahme_erfassen
End Sub
Gruß Hajo
