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Öffne Excel und stelle sicher, dass mehrere Dateien geöffnet sind.
Füge eine ComboBox in dein Arbeitsblatt ein. Du kannst das über die Entwicklertools-Registerkarte tun.
Verwende den folgenden VBA-Code, um die Namen der geöffneten Dateien in die ComboBox zu laden:
Private Sub Worksheet_Activate()
Dim i As Integer
ComboBox1.Clear
For i = 1 To Workbooks.Count
Me.ComboBox1.AddItem Workbooks(i).Name
Next i
End Sub
Setze den ausgewählten Dateinamen in eine Zelle, z.B. J10, wenn der Benutzer eine Auswahl trifft:
Private Sub ComboBox1_Change()
ActiveSheet.Range("j10").Value = Me.ComboBox1.Value
End Sub
Teste die ComboBox: Wechsle zwischen den geöffneten Dateien und wähle eine aus. Der Name sollte in J10 angezeigt werden.
Problem: Keine Dateien werden angezeigt.
Problem: Der ausgewählte Name bleibt nicht in der ComboBox.
ComboBox1.Clear
Befehl im falschen Ereignis verwendest. Es sollte im Worksheet_Activate
sein.Problem: Mehrfache Einträge in der ComboBox.
Eine alternative Methode zur Auswahl geöffneter Dateien könnte die Verwendung von ListBoxen statt ComboBoxen sein. Der Prozess bleibt ähnlich, aber die ListBox bietet mehr Flexibilität bei der Auswahl mehrerer Elemente.
Hier ist ein einfaches Beispiel, wie man eine Auswahl aus der ComboBox trifft und den Dateinamen in Zelle J10 schreibt:
Private Sub ComboBox1_Click()
ActiveSheet.Range("j10").Value = ComboBox1.Value
End Sub
Wenn du die ComboBox1
anklickst, wird der ausgewählte Dateiname direkt in J10 geschrieben.
1. Wie kann ich die offenen Dateien auf einem Windows Server 2019 anzeigen?
Durch die Verwendung von VBA und spezifischen API-Aufrufen kannst du die offenen Dateien abfragen, aber das erfordert fortgeschrittene Programmierkenntnisse.
2. Was mache ich, wenn meine ComboBox nicht aktualisiert wird?
Überprüfe, ob die ComboBox1.Clear
Methode an der richtigen Stelle im Code platziert ist, um sicherzustellen, dass die ComboBox regelmäßig aktualisiert wird.
3. Kann ich die Auswahl aus der ComboBox auch in einer anderen Zelle speichern?
Ja, du kannst den Zielbereich in der ComboBox1_Change
Subroutine anpassen, um die Auswahl in einer beliebigen Zelle zu speichern.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen