WinFuture-Forum.de: Vba + Mehrere Tabellen In Einer Schleife - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Entwicklung
Seite 1 von 1

Vba + Mehrere Tabellen In Einer Schleife


#1 Mitglied ist offline   Murdoc 

  • Gruppe: aktive Mitglieder
  • Beiträge: 322
  • Beigetreten: 03. Januar 05
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 18. August 2006 - 08:39

Aloha.

Ich möchte gern mehrere Tabellen (Excel) in einer For Schleife durchlaufen, nur kenn ich die
Syntax net.

For i=3 to 17 do
   Tabelle[i].cells(1,1)="geht net"
Next i


Wie kann ich das machen?

Mfg Murdoc
0

Anzeige



#2 Mitglied ist offline   dastriebel 

  • Gruppe: aktive Mitglieder
  • Beiträge: 439
  • Beigetreten: 11. August 06
  • Reputation: 1
  • Wohnort:Schweiz, Breitenbach

geschrieben 24. August 2006 - 12:00

Die For-Schleife hat kein 'do' sondern evtl ein 'Step'

Variante mit For-Next-Schleife
Public Sub ArbeitsblattNummern()

	Dim lng As Long
	
	For lng = 3 To 17 Step 1
		ActiveWorkbook.Worksheets(lng).Cells(1, 2) = "1. so geht's"
	Next lng
	
End Sub


Variante mit Aufzählung
Public Sub ArbeitsblattAufzählung()
	
	Dim wks As Excel.Worksheet
	
	For Each wks In ActiveWorkbook.Worksheets
		wks.Cells(1, 1) = "2. so geht's"
	Next wks

End Sub

0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0