kann tabelle nicht ansprechen
14.09.2003 10:10:16
josi
ich habe eine versteckte (ausgeblendete) tabelle in die ich, über ein user frorm, einen eintrag machen möchte, leider spricht das tabellenblatt nicht angesprochen, gefunden, die zeile 2:
ActiveWorkbook.Worksheets("Tabelle1").Select
wird immer gelb unterlegt.
der rest der sub functioniert, nur halt das die tabelle1 nicht gefunden wird.
ach ja zum zeitpunkt der ausführung ist eine andere tabelle (tabelle3) aktiv, welche nicht versteckt ist.
hier die sub
Private Sub cmd_Anlegen_Click()
ActiveWorkbook.Worksheets("Tabelle1").Select
ActiveSheet.Cells(1, 1).Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = frm_Schülereingabe.txt_Schüler.Value
Dim wks As Worksheet
On Error Resume Next
Set wks = Worksheets(txt_Schüler.Text)
If Err > 0 Or wks Is Nothing Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = txt_Schüler.Text
Worksheets(4).Range
Else
Beep
MsgBox "Blatt besteht schon!"
End If
On Error GoTo 0
ActiveSheet.Visible = False
Unload Me
End Sub
lg josi