VBA Wort finden und Nachbarzellen Werte anzeigen

[89stephan89]

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

[Kuwer]

Hallo Stephan,

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

[89stephan89]

Hallo Uwe,


jetzt hast du es geschafft.

Vielen Dank für deine Hilfe.

Echt toll.

Gruß
Stephan

[89stephan89]

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

[Kuwer]

Hallo Stephan,

es tut mir leid, aber da kann ich Dir nicht mehr helfen.  

Gruß Uwe