Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

For next Schleife

Betrifft: For next Schleife von: Piotr
Geschrieben am: 08.09.2004 11:36:20

Hallo,

ich möchte in der Tabelle1, in der Spalte A, die Werte der Zelle A1 der Tabellen 2 bis X untereinander auflisten. Es mus wohl die Schleife For - Next werwendet werden, aber wie muß die Prozedur aussehen, damit ich auf die einzelnen Tabellen zugreifen kann?

gruß, piotr

  


Betrifft: AW: For next Schleife von: Mac4
Geschrieben am: 08.09.2004 11:40:22

Hallo Piotr,

so müsste es gehen:

Sub test()
For i = 2 To Sheets.Count
Cells(i - 1, 1) = Sheets(i).[A1]
Next
End Sub


Marc (aus Köln)


  


Betrifft: AW: For next Schleife von: harry
Geschrieben am: 08.09.2004 11:41:59

hi,
so in der art:

For i = 2 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Cells(i - 1, 1).Value = Worksheets(i).Cells(1, 1).Value
Next

liebe grüße,
harry


  


Betrifft: AW: For next Schleife von: Piotr
Geschrieben am: 08.09.2004 13:30:51

Hallo Mark, Harry,

zuerst vielen Dank für die schnellen Antworten. 

Sub test()
For i = 2 To Sheets.Count
Cells(i - 1, 1) = Sheets(i).[A1]
Next
End Sub


Das nächste Ziel wäre es nicht die Einträge der Zellen aus unterschiedlichen Sheets in der ersten Spalte A aufzulisten, sondern die Namen der einzelnen Sheets.

Könnt ihr mir hier auch helfen?

Im voraus vielen Dank

Piotr









Marc (aus Köln)


  


Betrifft: AW: For next Schleife von: Mac4
Geschrieben am: 09.09.2004 07:58:53

Kein Problem:

Sub test()
For i = 2 To Sheets.Count
Cells(i - 1, 1) = Sheets(i).Name
Next
End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "For next Schleife"

In einer Schleife auf Elemente einer UserForm zugreifen
CheckBoxes in UserForms in eine Schleife einbinden
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen
UserForm-Optionsfelder über eine Schleife zurücksetzen