Habe eine Tabelle,wenn ich in der Spalte A einen Doppelklick mache sollte sich normal eine Userform öffnen.
Hier kommt aber immer die Fehlermeldung:
Set MeinBereich = Cells(Target.Row, 1)
Fehler beim Kompilieren.
Warum, habe leider keine Ahnung.
Könnte mir bitte jemand weiterhelfen? Danke
Heinz
Code im Tabellenblatt
'Bei Doppelklick in Spalte A
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Set MeinBereich = Cells(Target.Row, 1)
UserForm3.Show
Application.EnableEvents = True
Cancel = True
End Sub
Code in der Userform:Private Sub CommandButton1_Click()
With UserForm3
MeinBereich = CDate(Format(.TextBox1, "dd.mm.yyyy"))
MeinBereich.Offset(0, 1) = CDate(MeinBereich)
MeinBereich.Offset(0, 2) = .TextBox2
MeinBereich.Offset(0, 3) = .TextBox3
MeinBereich.Offset(0, 4) = .TextBox4
MeinBereich.Offset(0, 5) = .TextBox5
MeinBereich.Offset(0, 11) = .TextBox6
End With
Unload Me
End Sub
Private Sub UserForm_Activate()
With UserForm3
.Label1.Caption = Cells(4, MeinBereich.Column)
.TextBox1 = MeinBereich
.Label2.Caption = Cells(4, MeinBereich.Offset(0, 2).Column)
.TextBox2 = MeinBereich.Offset(0, 2)
.Label3.Caption = Cells(4, MeinBereich.Offset(0, 3).Column)
.TextBox3 = MeinBereich.Offset(0, 3)
.Label4.Caption = Cells(4, MeinBereich.Offset(0, 4).Column)
.TextBox4 = MeinBereich.Offset(0, 4)
.Label5.Caption = Cells(4, MeinBereich.Offset(0, 5).Column)
.TextBox5 = MeinBereich.Offset(0, 5)
.Label6.Caption = Cells(4, MeinBereich.Offset(0, 11).Column)
.TextBox6 = MeinBereich.Offset(0, 11)
End With
End Sub
Hier die Mappe
https://www.herber.de/bbs/user/127936.xlsm