Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife Tabellenblätter

Forumthread: Schleife Tabellenblätter

Schleife Tabellenblätter
22.01.2015 10:11:30
Pepi
Hallo Zusammen
Ich habe eine Tabelle mit folgenden Tabellen
Tabelle1 Januar
Tabelle2 Februar
Tabelle3 März
Tabelle19 Vorgaben
Tabelle20 Test
nun möchte ich eine Schlaufe wie folgt machen
for j = 1 to 3
if j = 2 then
"Tabelle" & j.activate
Cells(1,1) = "blabla"
endif
next j
Leider lässt sich die Tabelle aber so nicht ansprechen. Den Namen oder die Position möchte ich nicht nehmen, da beide Werte durch den Benutzer verändert werden können. Auch ist die erste Tabelle nicht Sheet(1)
Vielen Dank für eine kluge Lösung
mfg
Pepi

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife Tabellenblätter
22.01.2015 10:35:30
UweD
Hallo
das ganze macht nur sinn, wenn du noch Else mit einbaust; sonst kannst du direkt in Sheet2 schreiben
Sub ttt()
Dim TB, j%
For j = 1 To 3
If j = 2 Then
Sheets(j).Cells(1, 1) = "blabla"
Else
Sheets(j).Cells(1, 1) = "BLUB BLUB"
End If
Next
End Sub
Gruß UweD

Anzeige
AW: Schleife Tabellenblätter
22.01.2015 12:58:23
ede
oder so... 
Sub test2()
Dim iNum%
Dim shName As String
For iNum = 1 To 3
If UCase(Left(Sheets(iNum).CodeName, 7)) = UCase("tabelle") Then
shName = Sheets(iNum).Name
Sheets(shName).Cells(1, 1) = "Test"
End If
Next
End Sub

Anzeige
AW: Schleife Tabellenblätter
22.01.2015 12:51:48
Rudi
Hallo,
du kannst dir kein Objekt aus einem String zusammenbasteln.
Nimm alle Worksheets in eine Collection auf und benutze den Codenamen als Schlüsel. 
Sub aa()
Dim c As New Collection
Dim w As Worksheet, i As Integer
For Each w In Worksheets
c.Add w, w.CodeName
Next
For i = 1 To 3
If i = 2 Then
c("Tabelle" & i).Activate
Else
'was anderes
End If
Next i
End Sub

Gruß
Rudi

Anzeige
AW: Schleife Tabellenblätter
22.01.2015 14:35:27
Pepi
Vielen Dank - Supper Unterstützung!!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige