Ich bin ein "neuer Excel User" zumindest auf dem Feld von VBA, das normale Excel beherrsche ich recht gut.
Ich habe schon verschiedene Programmieraufgaben erfüllt, habe das aber nie gelernt, eher im Eigenstudium nebenbei mal schnell. Ich hoffe ihr seid gnädig mit mir.
So genug der Vorstellung jetzt zum Problem:
Ich möchte aus einer anderen Datei alle verbundenen Zellen in die aktuelle Datei in eine Zelle als DropDown einfügen. Dabei habe ich das hier gebastelt:
Dim pfad As String, datei As String, blatt As String, bereich As Range
pfad = []
datei = []
blatt = "LIST"
Workbooks.Open Filename:=pfad & datei
ActiveSheet.Name = blatt
Set bereich = Range("B5:Q469") 'wenn möglich, würde ich hier auf noch automatisch die letzte Zelle in dem Bereich einfügen
If bereich.MergeCells = True Then
bereich.Select
Else
End If
Selection.Copy
'Anhang wieder schlie?en ohne Speichern
ActiveWorkbook.Close SaveChanges:=False
Windows("ROUTINE.XLSM").Activate
Worksheets("Codegenerator").Range("C5").Select
Selection.Insert Shift:=xlDown
Das Problem hierbei stellt sich glaube ich in der Verwendung von der Selection. Bzw schon vorher mit den MergeCells. Kann mir jemand eine Hilfestellung geben, wie ich solche Probleme anfassen kann und für mich selbst lösen kann?
Ich wäre sehr froh darüber und natürlich auch über ein funktionierendes Script.
Ich danke für eure Hilfe und Mühen.