"künstliches" Klick nötig?.....Bitte Hilfe
Peter
habe da ein Problem wo ich nicht weiter komme....Also in meiner Tabelle Start wird per CommandButton1 die definierte Eingabemaske angezeigt....funzt auch
Private Sub CommandButton1_Click()
With Sheets("Daten")
On Error Resume Next
.Range("A2:F8").CurrentRegion.Name = "Start"
.ShowDataForm
End With
End Sub
Nun mein Problem....hinter Tabelle "Daten" habe ich folgenden Code stehen...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 Then
Application.EnableEvents = False
Target.Offset(1, -1).Formula = "=" & 1 & "+" & Target.Offset(0, -1).Address
Application.EnableEvents = True
End If
End Sub
der auch prima funzt, wenn ich manuell z.B. Zelle B5 anklicke oder ausfülle....dann habe ich in A6 den Wert A5+1 stehen...passt soweit, jedoch möchte ich folgendes erreichen:
mit Click auf den CommandButton1 soll das nächste freie Feld in ("Daten").[Bx]...in obigem Beispiel also B5, einen "Impuls" d.h. ein Click oder sowas per VBA erhalten.
Lässt sich sowas lösen?
Danke
Peter S.
Anzeige