Moin!

Hab null Ahnung von VB und brauche ein Makro, in dem man z.B. von Tabelle 1 bis 10 eine Zeile einfügt. Es hapert schon in der Deklaration der Variablen (es muß ja eine hochgezählt werden und bei "Sheets(???).Select" eingesetzt werden. Momentan sieht das Makro so aus:

Sub Makro1()

'

' Makro1 Makro

' Makro am 6.9.2001 von Pete007 aufgezeichnet

'

'

Rows("1:1").Select

Application.CutCopyMode = False

Selection.Copy

Sheets(???).Select

Rows("1:1").Select

Selection.Insert Shift:=xlDown

End Sub

VIELEN Dank!

Hey,

hier ist die Lösung für dein Problem

Public Sub Zeilen_einfuegen()


For x = 1 To 3          'Tabelle1 bis Tabelle3 für Tabelle 10 To 10 einfügen

    Sheets(x).Select    'Tabelle Anwählen

    Rows("1:1").Select  'Erste Spalte makieren

    Selection.Insert Shift:=xlDown  'Zellen einfügen

Next x

End Sub 

Anders als in C oder so muss man in VB in einer Zählschleife die Variablen nicht definieren.

Falls du doch mal ne Variable definieren wisst das geht so:

Dim Name_der_Variable As Integer

definiert eine Integervariable

So then have fun while coding!

CapitanX

Wow, dankeschön!

Das probier i doch glei mal aus