Hallo alle zusammen,
könnte mir bitte jemand den unterstehenden Kode ausführlich entziffern/erklären?
If Len(Worksheets("TabellenName").Range(SpalteS & "1." & SpalteS & LetzteZeile).SpecialCells(xlCellTypeVisible).Text) < 3 Then
Sheets("TabellenName ").Range(SpalteS & "1." & SpalteS & LetzteZeile).Value = UserForm1.Nummer
Else:
M = MsgBox("Mitteilung " & Spalte & " vbYesNo)
End If
If M = vbNo Then End
If M = vbYes Then Sheets("TabellenName").Range(SpalteT & "1." & SpalteT & LetzteZeile).Value = UserForm1.Nummer
Ich weiß, man muß viel schreiben. Ich habe nun keinen Experten, der mir diesen Rätsel erklären könnte und im Bücher steht auch nicht viel.So hoffe ich hier in Forum eine Abhilfe finden.
Ich bedanke mich im Voraus!
|