ich möchte gern per Button ausgelöst, die göffneten Dateien aufgelistet
haben, entsprechende Datei auswählen und dort einen Bereich zum Kopieren
auswählen und in die Datei/Sheet einfügen, von der ich gestartet habe.
mfg
sigrid
sub Test()
for i = 1 to workbooks.count
Tx = workbooks(i).name & vblf
next i
msgbox Tx
end sub
mfg
Option Explicit
Sub Test()
Dim i As Integer
Dim TX As String
For i = 1 To Workbooks.Count
TX = TX & Workbooks(i).Name & vbLf
Next i
MsgBox TX
End Sub
Private Sub ComboBox1_Click()
' ActiveSheet.ComboBox1.Clear
es bleibt der Name in der Combobox und der Name wird auch in J10 gesetzt.Private Sub ComboBox1_Click()
' ActiveSheet.ComboBox1.Clear ComboBox1.Clear
For i = 1 To Workbooks.Count
' TX = TX & Workbooks(i).Name & vbLf
ComboBox1.AddItem Workbooks(i).Name
Next i
' MsgBox i
ActiveSheet.Range("j10").Value = ComboBox1.Value
End Sub
VG, BorisPrivate Sub ComboBox1_Change()
ActiveSheet.Range("j10").Value = Me.ComboBox1.Value
End Sub
Private Sub Worksheet_Activate()
Dim i As Integer
Dim TX As String
ComboBox1.Clear
For i = 1 To Workbooks.Count
Me.ComboBox1.AddItem Workbooks(i).Name
Next i
End Sub
VG, Boris