ListBox-Werte

Forumthread: ListBox-Werte
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: ListBox-Werte

ListBox-Werte

08.08.2007 12:19:00

jimmypikfein

Guten Morgen,
kann jemand bitte diesen Code korrigieren? Die in der ListBox angeklickten Werte sollen in Spalte C (Tabelle2) übernommen werden.


Private Sub CommandButton1_Click()
Dim iRow As Integer
(Tabelle2)  iRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
Cells(iRow, 3).Value = ListBox1.Text
End Sub

Vielen Dank für die Hilfe im voraus
Gruß
Ahmadian

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ListBox-Werte

08.08.2007 12:25:00

Hajo_Zi
AW: ListBox-Werte

08.08.2007 12:26:00

Hajo_Zi
AW: ListBox-Werte

08.08.2007 12:27:00

jimmypikfein
AW: ListBox-Werte

08.08.2007 12:25:59

Ramses
AW: ListBox-Werte

08.08.2007 12:27:46

jimmypikfein

AW: ListBox-Werte

08.08.2007 12:25:00

Hajo_Zi

Hallo Ahmadian,


Option Explicit
Private Sub CommandButton1_Click()
Dim iRow As Long    ' Excel hat mehr als 32... Zeilen
With Worksheets("Tabelle2")
iRow = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count) + 1
.Cells(iRow, 3).Value = ListBox1.Text
End With
End Sub

AW: ListBox-Werte

08.08.2007 12:26:00

Hajo_Zi

Hallo Ahmadian,
die 1 muss auf 3 geändert werden
IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp).Row, .Rows. _
Count) + 1
Gruß Hajo

AW: ListBox-Werte

08.08.2007 12:27:00

jimmypikfein

Vielen Dank für die Hilfe!
Gruß
Ahmadian :-)

AW: ListBox-Werte

08.08.2007 12:25:59

Ramses

Hallo


Private Sub CommandButton1_Click()
Dim iRow As Integer
With Worksheets("Tabelle2")
iRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
.Cells(iRow, 3).Value = Me.ListBox1.Text
End With
End Sub

Gruss Rainer

AW: ListBox-Werte

08.08.2007 12:27:46

jimmypikfein

Vielen Dank für die Hilfe!
Gruß
Ahmadian :-)