Wert einer Zelle in bestimmte Zelle

[Matthias3L]

Hallo,

ich bin gerade dabei VBA zu lernen und ich habe eine kleine Tabelle mit Werten erstellt. Es gibt 6 Spalten und 100 Zeilen. Darin stehen Telefonnummern, Namen, Hobbies etc.

Mit dem Befehl 

Sub
ThisWorksheets("Tabelle1").Activate
Range("A1:A2").Copy
Range("C1").PasteSpecial xlPasteValues
End Sub

kann ich einen Zellinhalt kopieren und woanders einfügen. Das ganze möchte ich jetzt gerne ändern. In der ersten Spalte stehen die Ziffern der Zeilen (1 bis 100). In einer ComboBox kann ich eine Ziffer eingeben, danach drück ich auf einen Button und der Cursor soll dann zu der Zeile springen. Für jede Spalte hab ich eine andere ComboBox, Telefonnummer, Name, Hobbies etc. Nachdem der Cursor in die Zeile gesprungen ist, möchte ich die Zellen der Zeile mit den entsprechenden Werten füllen.

Kann mir jemand sagen wie das mit VBA machen kann? (Oder nur einen Tipp geben)

Gruß

[schauan]

Hallöchen,

Welche Combobox hast Du denn? Aus Formular oder Steuerelement?
Zum Einfügen z.B. so oder ähnlich:
Steuerelement
Range("C" & CombBox1.Value).PasteSpecial xlPasteValues
Formular mit Zugriff auf verbundene Zelle XX99
Range("C" & Range("XX99").Value).PasteSpecial xlPasteValues

[Matthias3L]

Ok vielen Dank! Inzwischen hab ich auch eine Lösung gefunden. Das geht mit einer einfachen For Next Schleife.


WertX = UserForm1.TextBox1.Value

    For i = 1 To 100

        If Cells(i, 9).Value = WertX Then
            
                UserForm1.Controls("TextBox2").Value = Cells(i, 1).Value

                UserForm1.Controls("TextBox3").Value = Cells(i, 2).Value

Next i

Funktioniert! Was noch fehlt wäre eine Art Autovervollständigung. Ich öffne meine Userform und gebe Musterma statt Mustermann ein (als Name). Damit soll Excel dann auch die richtige Zeile herausfinden (Vorraussetzung natürlich dass der Name nur 1x auftaucht). Den Code dafür hatte ich sogar schonmal, nur leider hab ich den Namen vergessen. Es gibt da so eine bestimmte Bezeichnung. Weiss das zufällig jemand?

Gruß