Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Listbox auslesen und in Tabelle schreiben
walter
Hallo Zusammen,
ich möchte den angeklickten Wert in eine Tabelle kopieren,
WIE ?
Gruss Walter

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Listbox auslesen und in Tabelle schreiben
barni
hi walter

Private Sub ListBox1_Click()
Range("a1").Value = ListBox1.Value
End Sub

AW: Listbox auslesen und in Tabelle schreiben
13.04.2004 17:40:55
Walter
Hallo Barni,
herzlichen Dank für die schnelle Hilfe.
Gruss Walter
Noch eine Frage...
Walter
Hallo Barni,
habe noch eine Frage:
Ich habe alle Mappe ausgelesen und aufgelistet, wenn ich jetzt einen MappeNamen
anklicke, soll die Userform beendet werden und die entsprechende Mappe aktiviert werden,
geht das ?
Gruss Walter
AW: Noch eine Frage...
barni
hi walter
stehen die Mappename in der listbox ?
AW: Noch eine Frage... Ja
13.04.2004 19:18:23
Walter
Hallo Barnie,
ja sind in der Listebox mit folgendem Makro:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i%                                  'neu
Dim w
Range("g10:g30").Select                           'Range("ab10:ab30").Select
Selection.ClearContents                           'zellen löschen
ListBox1.Clear                                    'Listbox leeren
Set w = Sheets("Tabelle1").Cells(10, 7)             'cells(10= 10 Zeile,  5= 5Spalte)
For i = 1 To Sheets.Count                       'zähler für Blätter
w.Cells(i, 1).Value = Sheets(i).Name             'i=wählt, 1=setzt ein z.b. 2= 1
' Spalte n. rechts
ListBox1.AddItem Sheets(i).Name                 'Listbox füllen
Next i
Application.ScreenUpdating = True
End Sub

Funktioniert sogar.
Gruss Walter

Anzeige
AW: Noch eine Frage...
barni
hi walter
versuch mal so:

Private Sub ListBox1_click()
Worksheets(ListBox1.Value).Select
End Sub

müsste klappen
Danke, klappt prima !!!
14.04.2004 09:31:36
Walter
Guten Morgen Barni,
danke, klappt super.
Gruss Walter

205 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige