Excel Macro: Formel dynamisch machen, um Zellenbereich auszuwählen?
Liebe Community,
ich habe folgendes Macro in meiner Excel Tabelle. Es funktioniert auch wunderbar, bis auf die Tatsache, dass dort der Tabellenbereich aus der fremden Excel-Datei definiert ist.
Leider sind es nicht immer 239 Zeilen. Mal mehr und mal weniger. Dass es bei A7 anfängt, das stimmt schon. Wie müsste ich die Formel ändern, damit Excel sich automatisch anpasst?
Vielen lieben Dank im Voraus!
Es handelt sich um diese Zeile wbQuelle.Worksheets(1).Range("A7:I239").Copy
Sub Quelle()
Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
sPfad = "C:\Users\Beispiel\Desktop\Irgendeine Datei\Daten\Daten.xlsx"
If Dir(sPfad) <> "" Then
Set wbQuelle = Workbooks.Open(sPfad)
wbQuelle.Worksheets(1).Range("A7:I239").Copy ThisWorkbook.Worksheets(3).Range("B2")
wbQuelle.Close savechanges:=False
End If
End Sub
1 Antwort
Um festzustellen wie viele Zeilen belegt sind.
hilft Count oder CountA.
Dann kann man den Text der in Range(MeinBereichAlsText) zusammenbauen
MeinBereichAlsText = "A1:A" & Worksheetfunction.Count(Worksheets.Range("A1:A100000"))
Hey, könntest Du mir das in die obere Formel einbauen? Ich stehe gerade auf dem Schlauch (wahrscheinlich ist es schon zu spät) Danke!
MeinBereichAlsText = "A1:A" & Worksheetfunction.Count(Worksheets("Tabelle").Range("A1:A100000"))