Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile einfügen in Tabellen mit VBA

Zeile einfügen in Tabellen mit VBA
01.06.2002 19:46:16
Ewald
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeile einfügen in Tabellen mit VBA
01.06.2002 20:24:22
Andreas
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

Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige