Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListBox-Werte

ListBox-Werte
08.08.2007 10: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
Anzeige
AW: ListBox-Werte
08.08.2007 10: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 10: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

Anzeige
AW: ListBox-Werte
08.08.2007 10:27:00
jimmypikfein
Vielen Dank für die Hilfe!
Gruß
Ahmadian :-)

AW: ListBox-Werte
08.08.2007 10: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 10:27:46
jimmypikfein
Vielen Dank für die Hilfe!
Gruß
Ahmadian :-)

Links zu Excel-Dialogen

CommandButton ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige