ich habe ein komisches Problem in meiner Excel-Datei die für mich überhaupt keinen Sinn macht.
Ich schreibe gerade eine Art Zeiterfassung, diese ist auch soweit fertig. Ich habe jedoch folgendes Problem.
Ich habe für jeden Ehrenamtler ein Excelblatt angelegt, damit ich schnell zu den einzelnen Personen komme habe ich mir ein UserForm angelegt das ich über eine Menüseite aufrufe.
in das Userform lade ich die einzelnen sheets mit folgendem VBA Makro:
Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 16
Dim i As Integer
For i = 1 To Sheets.Count
With ListBox1
.AddItem Sheets(i).Name
End With
Next i
End Sub
um auf die einzelne Person zukommen nutze ich dann folgendes Makro:Private Sub ListBox1_Click()
For i = 1 To Sheets.Count
If ListBox1.Value = Sheets(i).Name Then
Sheets(i).Select (bzw. activate, beides versucht)
End If
Next i
End Sub
Es geht auch das korrekte Blatt auf, dann klicke ich auf einen Button mit dem Makro:Unload UserForm1
Jetzt bin ich auf dem Korrekten Blatt.
Möchte ich jedoch etwas auf diesem ändern, schreibt er mir das immer auf das Blatt meines Menüs und nicht auf das Blatt was ich angezeigt bekomme. Ich kann alles anklicken auf dem Blatt das ich sehe, sobald ich jedoch was schreibe erscheint nicht, sondern er schreibt es in die entsprechende Zelle meines Menüblattes. Das macht für mich überhaupt keinen Sinn ...
Hat jemand eine Idee?
Vielen Dank
Gruß Timo