Hallo VBA-Profis,
das unten angehängte Skript verwende ich um in meiner Tabelle "Planung" ein Material samt den zugehörigen Daten einzufügen (deshalb wird die Zeile bis einsschließlich Spalte 9 mitkopiert).
Jetzt habe ich aber das Problem wenn ich ein Material einfüge dass nur die Inhalte nach unten verschoben werden und nicht ein richtige neue Zeile eingefügt wird, in diese wiederum der kopierte Inhalt reingehört. D.h. z.B. dass die Inhalte von Zeilen die vorher eine höhe von 24 hatten nun in Zeilen mit Höhe 12 verschoben werden. Das ist nicht so optimal.
Ich suche eine Lösung, bei der eine Zeile mit der genauen Höhe von 12 eingefügt wird, in diese dann mein kopierter Inhalt von der Tabelle "Materialliste" hineinkopiert wird. Alle anderen Zeilen sollen mit ihrer ursprünglichen Höhe nach unten verschoben.
Hoffe dass ich mich jetzt nicht zu kompliziert ausgedrückt habe und würde mich über Lösungsansätze sehr freuen! :-)
Danke schon mal im voraus,
Gruß
Daniel
Sub

Dim Str1 As String
Dim Zeile As Range

Str1 = InputBox("Material-Nummer?", "Suchen")
If Str1 = "" Then Exit Sub

Worksheets("Materialliste").Activate

With Worksheets("Materialliste").Range("B1:B65536")
Set Zeile = .Find(Str1, LookIn:=xlValues)
If Not Zeile Is Nothing Then

Range(Cells(Zeile.Row, 1), Cells(Zeile.Row, 9)).Select
Selection.Copy

Worksheets("Planung").Activate
Rows(ActiveCell.Row).Insert Shift:=xlDown

Else
MsgBox ("Materialnummer " & Str1 & " wurde nicht gefunden"), vbExclamation, "Suche fehlgeschlagen"
Worksheets("Planung").Activate

End If
End With

End Sub