Wert aus ausgewählter Zelle übernehmen
01.06.2022 08:22:32
Ramadani
Ich komme bei einem Problem nicht weiter und wäre um eure Hilfe dankbar.
Ich habe eine Liste mit mehreren Daten und aus dieser Liste brauche ich Werte aus bestimmten Zellen in einer Zeile. In den Spalten A, B und C befinden sich Auftragsnummern, jedoch sind nicht immer alle 3 Zellen befüllt, sondern immer nur eine davon oder 2.
Der Code den ich habe tut zu 95% das was er soll und zwar: Bei einem Doppelklick in eine Zelle, übernimmt er mir aus der entsprechenden Reihe die Werte die sich in den definierten Spalten befinden und kopiert diese in die entsprechende Userform. Komischerweise übernimmt er mir aber immer nur den Wert aus Spalte C, ganz egal ob ich in die Zelle der Spalte A, B oder C doppelklicke. Ich brauche aber immer den Wert aus der Zelle in die ich Doppelklicke. Sprich, wenn ich in Spalte B doppelklicke dann müsste der Wert aus der entsprechenden Reihe in Spalte B in die Userform kopiert werden.
Der Code den ich derzeit benutze sieht so aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Zeile As Long
Zeile = Target.Row
UserForm2.TextBox1 = Worksheets("Arbeitsliste").Cells(Zeile, 1).Value
UserForm2.TextBox1 = Worksheets("Arbeitsliste").Cells(Zeile, 2).Value
UserForm2.TextBox1 = Worksheets("Arbeitsliste").Cells(Zeile, 3).Value
UserForm2.TextBox2 = Worksheets("Arbeitsliste").Cells(Zeile, 23).Value
UserForm2.TextBox3 = Worksheets("Arbeitsliste").Cells(Zeile, 21).Value
UserForm2.TextBox4 = Worksheets("Arbeitsliste").Cells(Zeile, 12).Value
UserForm2.TextBox5 = Worksheets("Arbeitsliste").Cells(Zeile, 22).Value
UserForm2.TextBox6 = Worksheets("Arbeitsliste").Cells(Zeile, 13).Value
UserForm2.TextBox7 = Worksheets("Arbeitsliste").Cells(Zeile, 10).Value
UserForm2.TextBox8 = Worksheets("Arbeitsliste").Cells(Zeile, 8).Value
UserForm2.TextBox9 = Worksheets("Arbeitsliste").Cells(Zeile, 27).Value
UserForm2.TextBox10 = Worksheets("Arbeitsliste").Cells(Zeile, 24).Value
UserForm2.TextBox11 = Worksheets("Arbeitsliste").Cells(Zeile, 14).Value
End Sub
Ich bräuchte aber nicht die Werte ab Spalte I, sondern aus bestimmten Spalten.
Dieser Code sieht so aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
If Not Intersect(Target, Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
With UserForm2
.TextBox1 = ActiveCell
For i = 2 To 8
.Controls("TextBox" & i) = Cells(ActiveCell.Row, 7 + i)
Next i
End With
Cancel = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
varZelle = ActiveCell
End Sub
Gruss
Hixi