Supportnet / Forum / Tabellenkalkulation

Hallo, ich möchte einen Listenwert vom Userform in eine bestimmte Zelle zurückschreiben (C4). Dies soll aber nur dann geschehen, wenn in der Zeile B4 nix steht. Steht in Zeile B4 was dann soll der eintrag in C5 erfolgen. Steht in B5 was dann in C6. Dies soll dann bis Zeile C253 so gehen.... Kann mir da jemand helfen mir fehlt im Grunde auch nur an dem Befehl für das zurückschreiben des Listenwertes. den ersten Teil habe ich schon und der funktioniert gut...: x = Cells(Rows.Count, 2).End(xlUp).Row If x < 3 Or x > 253 Then Exit Sub Danke Marsi

hi Marsi,

du brauchs folgenden Code in deinem Formular:

Private Sub ListBox1_Click()
Call WertSchreiben
End Sub

und

Public Sub WertSchreiben()
Dim X        As Long
    'Wert schreiben
    X = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row    'Letzte gefüllte Zelle Spalte B
Debug.Print Me.ListBox1.Column(0)
    If X < 3 Or X > 253 Then
        Exit Sub
    Else
        Sheets(1).Cells(X + 1, 3) = Me.ListBox1.Column(0)  'wert aus der ersten Spalte der Listbox in Zelle schreiben
    End If
End Sub

Feedback fänd ich Klasse !!!

Greetings ;-)

Hi Coolpix,

danke erstmal für die Hilfe. Ich habe das anders gelöst:

x = Cells(Rows.Count, 2).End(xlUp).Row
If x < 3 Or x > 253 Then Exit Sub
cells(x,3) = MeineUserform.MeineListbox.Value

ist ein bisschen einfacher finde ich, obwohl wenn ich mir das genauer ansehe, sieht es Deinem verdammt ähnlich....

na ja wie auch immer es läuft jetzt und ich bin zufrieden...

Danke

Marsi

• Bedingte Formatierung
• VBA: Mehrere Shapes auswählen
• VBA: Eine Variable in einem String
• Vergleich von 2 Tabellen Zusammenfasung der Daten in einer dritten Tabelle
• Wenn-Funktion???