Zum Inhalt springen

Variablen in VB (Excel-Makro)


Pete007

Empfohlene Beiträge

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!

Link zu diesem Kommentar
Auf anderen Seiten teilen

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 :D

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...