Office: Tabellenblatt als Variable

skidrow · 7. Februar 2016

Hallo,

ich möchte das aktuelle Tabellenblatt (Benannt nach dem Monat) rausfinden. Kann mir einer sagen wieso das nicht klappt?

Code:

Private Sub UserForm_Initialize()
Dim letzteZeile As Long
Dim DatumSpalte As Long
Dim i As Long
Dim x As Long
Dim y As Long
Dim Offz As Long
Dim UmP As Long
Dim UoP As Long
Dim Msch As Long
Dim monat As Integer
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim wks3 As Worksheet
Dim wks4 As Worksheet
Dim wks5 As Worksheet
Dim wks6 As Worksheet
Dim wks7 As Worksheet
Dim wks8 As Worksheet
Dim wks9 As Worksheet
Dim wks10 As Worksheet
Dim wks11 As Worksheet
Dim wks12 As Worksheet
Dim wksAktuell As Worksheet

monat = Month(Date)

wks1 = Worksheets("Januar")
wks2 = Worksheets("Februar")
'......hier die weiteren

For x = 5 To 36
With Sheets("wks" & monat)
If .Cells(10, x) = Date Then
DatumSpalte = x
End If
End With
Next x
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

rastrans · 9. Februar 2016

Hallo,

weil "wks" & monat war einen String ergibt, aber der String nicht in eine Variable umgewandelt wird! Und deine Arbeitsblätte heissen doch Januar, Februar, .. und nicht wks1, wks2, ....

Hier hilft dir ein Array: Code:

Dim wks(12) As Worksheet

wks(1) = Worksheet("Januar")

With wks(monat)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das bringt dir auch noch den gleichen Erfolg: Code:

Const Monat = "Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember"

With Sheets(Split(Monat, ",")(Monat + 1))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
rastrans

aloys78 · 9. Februar 2016

Hallo,

ich möchte das aktuelle Tabellenblatt (Benannt nach dem Monat) rausfinden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dazu brauchst Du keine wks1 bis 12.

Mein Vorschlag:
Code:

Option Explicit

Sub Test()
Dim Monat As String

Monat = Format(Date, "mmmm")
Set wks = Worksheets(Monat)
For x = 5 To 36
With wks
MsgBox .Range("A1")
End With
Next x
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

skidrow · 9. Februar 2016

Hallo Aloys,

Ja das war auch mein Gedanke. Hatte ich, da dies nicht geklappt hat wieder verworfen. Aber mein Fehler war natürlich, das ich das ganze als Long angegeben hatte. Danke Aloys!

skidrow · 9. Februar 2016

Moin, hat leider doch nicht hingehauen. Vllt magst du mal über den Code gucken.

Code:

Private Sub UserForm_Initialize()
Dim letzteZeile As Long
Dim DatumSpalte As Long
Dim i As Long
Dim x As Long
Dim Offz As Long
Dim UmP As Long
Dim UoP As Long
Dim Msch As Long
Dim Monat As String
Dim wks As Worksheet

Monat = Format(Date, "mmmm")

Set wks = Worksheets(Monat)

For x = 5 To 36
With wks
If .Cells(10, x) = Date Then
DatumSpalte = x
End If
End With
Next x

letzteZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row

For i = 12 To letzteZeile
With wks
If .Cells(i, DatumSpalte) = "x" Then
If .Cells(i, 2) = "SU" Or .Cells(i, 2) = "U" Then
UoP = UoP + 1
End If

If .Cells(i, 2) = "G" Or .Cells(i, 2) = "OG" Or .Cells(i, 2) = "HG" Or .Cells(i, 2) = "SG" Or .Cells(i, 2) = "OSG" Then
Msch = Msch + 1
End If

If .Cells(i, 2) = "L" Or .Cells(i, 2) = "OL" Or .Cells(i, 2) = "H" Or .Cells(i, 2) = "M" Then
Offz = Offz + 1
End If

If .Cells(i, 2) = "F" Or .Cells(i, 2) = "OF" Or .Cells(i, 2) = "HF" Or .Cells(i, 2) = "SF" Or .Cells(i, 2) = "OSF" Then
UmP = UmP + 1
End If

End If
End With
Next i

Label6.Caption = Offz
Label7.Caption = UmP
Label8.Caption = UoP
Label9.Caption = Msch
Label10.Caption = Offz + UmP + UoP + Msch
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78 · 9. Februar 2016

Hallo,

... hat leider doch nicht hingehauen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was haut nicht hin ?

Gruß
Aloys

skidrow · 9. Februar 2016

Ich ziehe zurück, klappt jetzt doch. Ich hatte eine weitere Mappe offen, er hat dann immer alles in der Mappe ausführen wollen. Geht natürlich nicht.

Office: Tabellenblatt als Variable

Tabellenblatt als Variable

Tabellenblatt als Variable

Tabellenblatt als Variable

Tabellenblatt als Variable - Similar Threads - Tabellenblatt Variable

Arbeitszeiten aus mehreren Tabellenblätter

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Textblock/Zellbereich aus Tabellenblatt in Worddokument übergeben

Variable Abfrage auf verschiedene Tabellenblätter

[VBA] Daten auf Grund von Variable auf anderes Tabellenblatt kopieren

Tabellenblatt mit Variabler ansprechen

Variable Zelleninformationen in anderen Tabellenblätter einfügenlassen (Autofill?)