Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet.Select funktioniert nicht mit Variable

Sheet.Select funktioniert nicht mit Variable
19.11.2018 10:23:17
Martin
Folgendes Problem:
Wenn ich ein Sheet (KW42) mit einer Variable die aus einer Schleife ausgegeben wurde versuche auszuwählen erhalte ich eine Fehlermeldung.
Wenn ich aber die Variable ohne das "&" schreibe funktioniert es. 
Sub KWSheetZählerTest()
Dim Zaehler As Integer
For Zaehler = 1 To 52
If Zaehler = "52" Then GoTo Ende
'ShZl = "KW42" 'Funktioniert
SheetZaehler = "KW" & Zaehler 'Funktioniert nicht
MsgBox (SheetZaehler)
If SheetZaehler = Sheets(SheetZaehler).Select Then GoTo Ausgabe
nexts:
Next Zaehler
Ausgabe:
MsgBox (Zaehler)
GoTo nexts
Ende:
End Sub
Gruß Martin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheet.Select funktioniert nicht mit Variable
19.11.2018 10:46:54
Karl-heinz
Hallo Martin,
mit Verlaub, Dein Code ist äußerst merkwürdig und für mich nicht nachvollziehbar.
Wenn Du aber nur die vorhandenen KW-Blätter in deiner Arbeitsmappe zählen möchtest, könntest Du's mit diesem Ansatz hier versuchen. 
Sub KWSheetZählerTest()
Dim Zaehler As Integer, SheetZaehler As Integer, WSh As Worksheet
On Error Resume Next
For Zaehler = 1 To 52
Set WSh = Nothing
Set WSh = Sheets("KW" & Right$("00" & Zaehler, 2))
If Not WSh Is Nothing Then SheetZaehler = SheetZaehler + 1
Next Zaehler
MsgBox "Anzahl Sheets ist " & SheetZaehler
End Sub
Wobei ich unterstelle, dass die KWn viele Grüße
Karl-Heinz
Anzeige
AW: Sheet.Select funktioniert nicht mit Variable
19.11.2018 11:55:13
Martin
Hallo Karl-Heinz,
Danke für den Code, aber was ich eigtl. wollte war das Mappen die z.B. KWX heißen nacheinander ausgewählt werden.
Ich hab ein paar Kalenderwochenmappen, KW41, KW32, KW42 usw. wo hin und wieder neue Mappen hinzukommen. Jetzt möchte ich das die Mappen von groß nach klein nacheinander ausgewählt werden damit ich daraus eine Zeile mit einer Bedingung in eine andere Mappe kopieren kann. Deswegen der Zähler
Also Sheet KW32 - Alle Zeilen mit Wert X nach Sheet Z kopieren
Dann Sheet KW41 - Alle Zeilen mit Wert X nach Sheet Z kopieren
Dann Sheet KW42 - Alle Zeilen mit Wert X nach Sheet Z kopieren
...
Viele Grüße,
Martin
Anzeige
AW: Sheet.Select funktioniert nicht mit Variable
19.11.2018 13:34:52
Karl-heinz
Hallo Martin,
dann brauchst Du doch nur einen Select-Befehl und den "Nutzcode" hinzufügen.
Sub KWSheetZählerTest()
Dim Zaehler As Integer, SheetZaehler As Integer, WSh As Worksheet
On Error Resume Next
For Zaehler = 1 To 52
Set WSh = Nothing
Set WSh = Sheets("KW" & Right$("00" & Zaehler, 2))
If Not WSh Is Nothing Then
WSH.Select
weiterer code für dieses nicht ausgeblendete Blatt
end if
Next Zaehler
MsgBox "Fertig"
End Sub
Falls ich Dich richtig verstanden habe :-)
VG KH
AW: Sheet.Select funktioniert nicht mit Variable
19.11.2018 13:08:30
Martin
So hatte ich das gemeint:
Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
On Error Resume Next
WorksheetExists = (Sheets(WorksheetName).Name  "")
On Error GoTo 0
End Function


Sub KWSheetZählerTest()
Dim Zaehler As Integer
For Zaehler = 1 To 52
If Zaehler = "52" Then GoTo Ende
SheetZaehler = "KW" & Zaehler 'Funktioniert nicht
If WorksheetExists(SheetZaehler) Then GoTo Ausgabe
nexts:
Next Zaehler
Ausgabe:
MsgBox (Zaehler)
GoTo nexts
Ende:
End Sub
Aber vielen Dank für die Mühe
LG Martin
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige