Bitte Erläuterung eines VBA Codes
13.09.2023 12:22:55
Wolfango
ich muss einen Code verändern (habe nur minimale VBA-Kenntnisse) und versuche zu verstehen, was da passiert.
Sub Add_rows()
Application.EnableEvents = False
Dim lngZ As Long
lngZ = Application.InputBox(prompt:="How many rows " _
& "would you like to add?", Type:=1)
If lngZ = False Then Exit Sub
With ActiveSheet
.Unprotect ("xyz")
Do
Worksheets("qqqqq").ListObjects("qqqqq").ListRows.Add
.Unprotect ("xyz")
Zahl = Zahl + 1
Worksheets("qqqqq").Cells(Zahl, 16384).Value = Zahl
If Zahl = lngZ Then Exit Do
Loop
End With
Im Ergebnis wird dann immer die gewünschte Anzahl an Zeilen hinzugefügt. Diese Zeilen enthalten bereits Formeln! Woher kommen die Formeln? Das muss doch irgendwo definiert sein, denke ich!?
Bitte um Hilfe...Danke!