Muss mich nun wieder mal melden, weil ich wieder ein Problem habe bzw. ich muss die Lösung abändern.
https://www.herber.de/index.html?https://www.herber.de/forum/archiv/468to472.htm
(Thema: "fdd" von "d")
Wenn ihr euch das mal durchlesen könntet, wäre supi.
Jetzt hat sich aber nun die Anordnungsmatrix geändert und zwar wie folgt:
A1: hans B1: hans.doc C1: 16.07.1999
B2: hans_s.ppt C2: fehlt noch
B3: hans_z.ppt C3: existiert
A4: gerhard B4: gerhard.doc C4: 04.06.2001
B5: gerhard_s.ppt C5: existiert
B6: gerhard_z.ppt C6: fehlt noch
A6: gerhard B6: gerhard.doc C6: 04.06.2001
B7: gerhard_s.ppt C7: existiert
B8: gerhard_z.ppt C8: fehlt noch
Das heißt also, dass der Zeilenabstand zwischen den jeweiligen Inhalten der Spalte A jetzt nicht mehr 2 Zeilen beträgt, sondern variert.
Der Rhythmus bleibt somit nicht mehr erhalten und das Makro kommt ins schleudern.
--> lngRow = lngRow + 3 (passt nicht mehr!)
Wie kann ich den Code abändern, sodass die Funktion des Makros noch voll erhalten bleibt?
Vielen Dank für eure Hilfe schonmal im Voraus.
P.S.: Habs schonmal versucht, aber nicht ganz hingekriegt, er wirft dann an bestimmten Stellen eine Fehlermeldung raus.
Sub Michl()
Dim strText As String
Dim lngRow As Long
strText = InputBox("Name eingeben", "Name?")
lngRow = 1
Do Until Cells(lngRow, 1) > strText
lngRow = lngRow + 1
Loop
Rows(lngRow & ":" & lngRow + 2).Insert
Cells(lngRow, 1) = strText
End Sub
Gruß,
Michl