Bei Doppelklick Werte in UF füllen
02.03.2014 16:11:15
Heinz
Ich habe eine UserForm die ich im Sheets "Auswertung" mit Doppelklick in Spalte A1:A5000 aufrufe.
Nun möchte ich,wenn die UF aufgerufen wird,das diese mir mit den Werten der jeweiligen Zeile gefüllt wird.
Es würde nach dem Prinzip funktionieren.
'Userform füllen
Private Sub UserForm_Initialize()
ComboBoxDatum = Sheets("Auswertung").Range("A5")
ComboBoxLinie = Sheets("Auswertung").Range("B5")
TextBoxSchicht1 = Sheets("Auswertung").Range("C5")
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:A5000")) Is Nothing Then
Cancel = True
'Cancel = Not Target.Column = 1
Fehler_Korrektur.Show
'Suche_Namen Target
End If
End Sub
Aber dieses Beispiel funktiniert nur in Spalte A5
Es sollte aber in den Spalten A1:A5000 funktionieren.
Könnte mir dazu bitte jemand weiterhelfen?
Gruß,Heinz
https://www.herber.de/bbs/user/89505.xlsm
Anzeige