Sehr geehrte Damen und Herren:
Möchte in einem Formular, dass neue Zeilen unter die vorhandenen eingefügt werden können, die letzte Spalte in der Tabelle ist "J",
sodass es sinnvoll ist, die erste freie Spalte dort zu suchen.
Dort möchte ich dann den Inhalt von Zeile 12 einfügen.
Geht aber nicht, die Fehlermeldung lautet nun, dass das Zielformat (denn eine Zelle wurde ausgewählt) nicht mit dem einzufügenden Format übereinstimmt (da ja eine ganze Zeile kopiert wurde).
Nun ist also die Frage, wie komme ich in Spalte J zur ersten freien Zelle und wähle dann die entsprechende Zeile aus um den Inhalt einzufügen????
Hier erst einmal mein Versuch:
Sub CommandButton1_Click()
Rows("12:12").Select
Selection.Copy
Sheets("Formblatt AE").Activate
Range("J15", "J100").End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
End Sub
So schön einfach geht es aber leider nicht, denn die Fehlermeldung lautet nun, dass das Zielformat (denn eine Zelle wurde ausgewählt) nicht mit dem einzufügenden Format übereinstimmt (da ja eine ganze Zeile kopiert wurde).
Nun ist also die Frage, wie komme ich in Spalte J zur ersten freien Zelle und wähle dann die entsprechende Zeile aus um den Inhalt einzufügen???? |