Zugriff auf falsches Tabellenblatt
21.04.2006 11:55:08
Josef
Mit unten stehendem Code sollte folgendes passieren:
Habe ich die Tabelle2 aktiviert und drücke in der Userform den Button
cmd_Neu so wird automatisch die Tabelle1 aktiviert.
If Sheets("Tabelle1").Select Then heißt doch folgendes:
Wenn die Tabelle1 aktiviert wäre dann führe den 1.Code aus und bei
If Sheets("Tabelle2").Select Then
Wenn die Tabelle2 aktiviert wäre dann führe den 2.Code aus.
Warum wird jedoch bitte beim Drücken des Buttons automatisch die Tabelle1 aktiviert obwohl die Tabelle2 aktiv ist?
Danke
Josef
Private Sub cmd_Neu_Click()
If Sheets("Tabelle1").Select Then
cmd_Neu.Visible = False
cmd_Abbruch.Visible = True
CommandButton3.Enabled = True
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True
TextBox8.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
'Bei Klick auf den Schalter Neu
'wird der letzte Datensatz voreingestellt,
lng_Datensatz = lng_AnzDS
'die Scrollbar entsprechend aktualisiert
Call SetzeScrollBar
'und der letzte Datensatz angezeigt
Call ZeigeDatensatz
Me.TextBox1.Value = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row, 1).Value + 1
Else
'********************************Tabelle2*********************************************
If Sheets("Tabelle2").Select Then
'Bei Klick auf den Schalter Neu
'wird der letzte Datensatz voreingestellt,
lng_Datensatz1 = lng_AnzDS1
'die Scrollbar entsprechend aktualisiert
Call SetzeScrollBar1
'und der letzte Datensatz angezeigt
Call ZeigeDatensatz1
'Me.TextBox1.Value = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row, 1).Value + 1
End If
End If
End Sub