Hallo zusammen,
ich habe zwei Fragen zu einer Exceldatei, vielleicht kann mir da jemand helfen:
Ich hab eine Tabelle, in der in einer bestimmten Zelle (A3) per Auswahlliste ein Name ausgewählt werden kann. Je nachdem welcher Name dort ausgewählt wird, öffnen sich dann zwei weitere Exceldateien. Hier das Makro dazu:
Private Sub worksheet_Change(ByVal Target As Range)
If ThisWorkbook.Sheets("Tabelle1").Range("A3").Value = "NameA" Then
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameA_Liste1.xls"
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameA_Liste2.xls"
End If
If ThisWorkbook.Sheets("Tabelle1").Range("A3").Value = "NameB" Then
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameB_Liste1.xls"
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameB_Liste2.xls"
End If
End Sub
Das funktioniert auch alles so weit, aber
1. Ich möchte die Auswahlliste nicht nur in der Zelle A3 haben, sondern in mehreren untereinander, also z.B. von A3 bis A8. Ich hatte versucht einfach nur den Bereich Range(„A3:A8“) anzugeben, aber das funktioniert nicht.
2. Wenn sich die beiden zusätzlichen Exceldateien geöffnet haben und ich dann in die Ursprungsdatei zurück gehe und irgendwo in einer Zelle was eingebe und Enter drücke, dann schiebt sich automatisch wieder die durch das Makro zuletzt geöffnete Datei in den Vordergrund. Ich möchte aber, dass diese im Hintergrund bzw. minimiert bleibt, solange ich sie nicht selbst unten aus der Leiste anklicke und aufrufe.
Danke schon mal für Eure Hilfe.
Gruß
Miss Leela
ich habe zwei Fragen zu einer Exceldatei, vielleicht kann mir da jemand helfen:
Ich hab eine Tabelle, in der in einer bestimmten Zelle (A3) per Auswahlliste ein Name ausgewählt werden kann. Je nachdem welcher Name dort ausgewählt wird, öffnen sich dann zwei weitere Exceldateien. Hier das Makro dazu:
Private Sub worksheet_Change(ByVal Target As Range)
If ThisWorkbook.Sheets("Tabelle1").Range("A3").Value = "NameA" Then
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameA_Liste1.xls"
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameA_Liste2.xls"
End If
If ThisWorkbook.Sheets("Tabelle1").Range("A3").Value = "NameB" Then
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameB_Liste1.xls"
Workbooks.Open Filename:="C:\Desktop\Testdateien\NameB_Liste2.xls"
End If
End Sub
Das funktioniert auch alles so weit, aber
1. Ich möchte die Auswahlliste nicht nur in der Zelle A3 haben, sondern in mehreren untereinander, also z.B. von A3 bis A8. Ich hatte versucht einfach nur den Bereich Range(„A3:A8“) anzugeben, aber das funktioniert nicht.
2. Wenn sich die beiden zusätzlichen Exceldateien geöffnet haben und ich dann in die Ursprungsdatei zurück gehe und irgendwo in einer Zelle was eingebe und Enter drücke, dann schiebt sich automatisch wieder die durch das Makro zuletzt geöffnete Datei in den Vordergrund. Ich möchte aber, dass diese im Hintergrund bzw. minimiert bleibt, solange ich sie nicht selbst unten aus der Leiste anklicke und aufrufe.
Danke schon mal für Eure Hilfe.
Gruß
Miss Leela