Wie wäre es hiermit
Sub Hauptprogramm()
Dim AnzahlZeilen As Integer
Dim ZeilenTab1 As Integer
Dim Zaehler_1 As Integer
ZeilenTab1 = ActiveWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row 'Zeilen zählen
AnzahlZeilen = 1 'Anzahl der Zeilen, die vor "Autoteile XYZ"
'eingefügt werden sollen
'Schleife zum Durchsuchen der Spalte A nach "Autoteile XYZ"
For Zaehler_1 = ZeilenTab1 To 1 Step -1 'Beginnen bei letzter Zeile des Tabellenblatts
If InStr(1, Worksheets("Tabelle1").Cells(Zaehler_1, 1).Value, "Autoteile") >= 1 Then 'Abfrage auf "Autoteile" in aktueller Zelle
Call ZeileEinfuegen(Zaehler_1, AnzahlZeilen) 'Wenn "Autoteile" in String gefunden, dann Funktion zum Zeilen
'einfügen aufrufen und Parameter übergeben
End If
Next Zaehler_1
End Sub
und dann diese Funktion als modul erstellen
Function ZeileEinfuegen(ZeileStart As Integer, AnzZeilen As Integer)
Dim Zaehler As Integer
For Zaehler = ZeileStart To ZeileStart + AnzZeilen - 1
ActiveWorkbook.Sheets("Tabelle1").Cells(Zaehler, 1).EntireRow.Insert
Next Zaehler
End Function
Natürlich muss u.U. der Tabellenname noch angepasst werden.
Sollte es bei der Umsetzung Probleme geben bitte ganze Sätze schreiben.
Und die Auffälligkeiten schildern. Danke im Voraus
Ich habe es bei mit getestet und es hat funktioniert.
Gruß
Andreas
|