Hallo Uwe,
da hast du was gutes zusammen gebastelt.
Das mit den Bezeichnungen geht.
Allerdings würde ich gern die Textboxen selber ansprechen da diese auch unterschiedlich sind.
Sonst steht das ganz woanders.
Wenn ich aus der 2 zum Schluss eine 3 mache wollte ich auch gern Spalte C auslesen. Das hat nicht geklappt.
Danke für deine Zeit Uwe.
Gruß
Stephan
Hallo Stephan,
(27.06.2017, 15:47)89stephan89 schrieb: [ -> ]Allerdings würde ich gern die Textboxen selber ansprechen da diese auch unterschiedlich sind.
Sonst steht das ganz woanders.
Wenn ich aus der 2 zum Schluss eine 3 mache wollte ich auch gern Spalte C auslesen. Das hat nicht geklappt.
die Case-Abschnitte darfst Du beliebig anfügen:
Private Sub CommandButton1_Click()
Dim i As Long, j As Long
Dim strB As String
Dim varL As Variant
strB = "Auto"
varL = Range("A1").CurrentRegion.Value
For i = LBound(varL) To UBound(varL)
If varL(i, 1) = strB Then
j = j + 1
Select Case j
Case 1
TextBox2 = varL(i, 2)
Case 2
TextBox1 = varL(i, 2)
Case 3
TextBox3 = varL(i, 2)
TextBox4 = varL(i, 3)
'Case 4
'...
'Case 5
'...
End Select
End If
Next i
End Sub
Gruß Uwe
Hallo Uwe,
jetzt hast du es geschafft.
Vielen Dank für deine Hilfe.
Echt toll.
Gruß
Stephan
Hallo Uwe,
Wenn das Wort Auto nicht vorhanden ist, werden auch Werte übernommen.
aus strB = "Auto"
habe ich das hier gemacht
strB = Cells.Find(what:="Auto", LookIn:=xlFormulas, LookAt:=xlWhole)
Hiermit werden die werde nur bei dem Wort übernommen.
Jetzt habe ich das gleiche mit dem Beispiel Motorrad
und habe dein Code unter Next i wieder eingefügt.
Jetzt werden nur die die Auto Werte übernommen.
Keine Ahnung was ich da falsch mache. Bestimmt falsch eingefügt.
Das ganze würde glaube ich auch mit Offset gehen.
Außerdem habe ich den Code hier von dir gefunden im Forum ThisWorkbook.Worksheets("Eingabemaske").Range("A1:A100").Value = Application.Transpose(Split(TextBox515, vbLf))
Die TexBox 515 kopiert mir alles in die Tabelle.
Wenn aber nur eine Bezeichnung eingefügt wird. Wiederholt der die gleiche Bezeichnung bis A100 außer ich drücke nochmal Enter in der Textbox dann nur einmal.
Gruß
Stephan
Hallo Stephan,
es tut mir leid, aber da kann ich Dir nicht mehr helfen.
Gruß Uwe