Zeile einfügen in Tabellen mit VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Zeile einfügen in Tabellen mit VBA
von: Ewald
Geschrieben am: 01.06.2002 - 19:46:16

Hallo zusammen,

im nachfolgenden VBA-Code wird eine Zeile engefügt in der Tabelle1
im Bereich A13:A23.

Wie kann man gleichzeitig in der Tabelle2 im Bereich A11:A21 und A28:38
eine Zeile einfügen.

Sub ZeileEinfügen()
Dim fund, b As Range, Variante As String
Application.ScreenUpdating = False
Variante = InputBox("Geben Sie einen Variante ein:", "Versuchsglieder")
If Variante = "" Then Exit Sub
Set b = Worksheets("Tabelle1").Range("A13:A23").Find(Variante)
If Not b Is Nothing Then
fund = b.Address
Do
Zeile = b.Row
Range(Cells(Zeile, 1), Cells(Zeile, 1)).Select
Loop Until fund = b.Address
End If
Selection.EntireRow.Insert
Application.ScreenUpdating = True
End Sub

Kann mir jemand helfen?

Vielen Dank.

Grüße

nach oben   nach unten

Re: Zeile einfügen in Tabellen mit VBA
von: Andreas
Geschrieben am: 01.06.2002 - 20:24:22

Hi Ewald,

wenn in der Tabelle2 in den von dir vorgegebenen Bereichen die Zeilen genau mit so vielen Zeile Abstand eingefügt werden sollen wie sie in der Tabelle 1 sind so müsste der folgende Code helfen:

Sub ZeileEinfügen()
Dim Zeile2, Zeile3
Dim fund, b As Range, Variante As String
Application.ScreenUpdating = False
Variante = InputBox("Geben Sie eine Variante ein:", "Versuchsglieder")
If Variante = "" Then Exit Sub
Set b = Worksheets("Tabelle1").Range("A13:A23").Find(Variante)
If Not b Is Nothing Then
fund = b.Address
Do
Zeile = b.Row
Zeile2 = Zeile - 2
Zeile3 = Zeile + 15
Range(Cells(Zeile, 1), Cells(Zeile, 1)).Select
Loop Until fund = b.Address
End If
Selection.EntireRow.Insert
Sheets(2).Select
Range(Cells(Zeile2, 1), Cells(Zeile2, 1)).Select
Selection.EntireRow.Insert
Range(Cells(Zeile3, 1), Cells(Zeile3, 1)).Select
Selection.EntireRow.Insert
Application.ScreenUpdating = True
End Sub

LG

Andreas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeile einfügen in Tabellen mit VBA"