Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige