ich möchte den angeklickten Wert in eine Tabelle kopieren,
WIE ?
Gruss Walter
Private Sub ListBox1_Click()
Range("a1").Value = ListBox1.Value
End Sub
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
Private Sub ListBox1_click()
Worksheets(ListBox1.Value).Select
End Sub