Hallo.
eine Frage zu Variablen Deklarieren.
Habe in der Arbeitsmappe unten stehenden Code.
Nachdem ich jedoch den oberen Teil eingefügt habe, und "Option Explicit"
davor gesetzt habe, wird bei Teil zwei moniert, das die Variable "strClick_Eins" nicht vorhanden ist.
Normalerweise müssen doch die Variablen ganz am Anfang deklariert werden.
Entferne ich "Option Explicit" geht es.
Wo und wie wird die Variable "strClick_Eins" deklariert?
Option Explicit
Private Sub Workbook_Open()
'Beim Öffnen der Mappe wird geprüft ob in "E" ein Wert steht
'Steht da keiner, wird das Erstelldatum dieses Dokumentes eingetragen.
Dim x&
With Tabelle1
For x = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(x, 5).Value = "" Then
.Cells(x, 5) = Format(ThisWorkbook.BuiltinDocumentProperties(11).Value, "DD/MM/YYYY")
End If
Next
End With
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
If Target.Column = 3 Then
If ActiveCell.Address = strClick_Eins Then
Cancel = True
'hier code für mach was schönes beim 2.Click in die selbe Zelle
Application.CutCopyMode = False
Unload UserForm1
Application.CutCopyMode = False
ActiveCell.Select
UserForm1.Show vbModeless
strClick_Eins = ""
Unload UserForm1
ActiveCell.Select
UserForm1.Show vbModeless
Exit Sub
End If
If UserForm1.Visible Then
strClick_Eins = ActiveCell.Address
UserForm1.Hide 'Userform ausblenden
Else
Application.CutCopyMode = False
ActiveCell.Select
UserForm1.Show vbModeless 'Userform anzeigen
Unload UserForm1
ActiveCell.Select
UserForm1.Show vbModeless
End If
Cancel = True
End If
End Sub
Gruß Andi