Ich glaube ich bin blind!
13.02.2021 11:07:32
Herbert_Grom
ich sehe den Wald vor lauter Bäumen nicht! Ich möchte eine Datei öffnen und in Tabelle1 in der Zeile 4 (a) dann, aus den Daten der Spalten A & B & D einen String bilden. Ich habe das mit dem nachfolgenden Code versucht und bekomme in der Zeile unter ".Activate" eine Fehlermeldung. Könnt ihr mir bitte sagen, wo ich da den Fehler habe, denn ich sehe es einfach nicht! Dafür vielen Dank im Voraus!
Servus
Dim wkbQuelle As Workbook, wkbZiel As Workbook, iLastRow%, a%
Dim si9_neu_String$, si9_alt_String$
iLastRow = Cells(1048576, 1).End(xlUp).Row
For a = 4 To iLastRow
Set wkbQuelle = Workbooks.Open(ThisWorkbook.Path & "\i9neu.xls")
With sQuelle
.Activate
iLastRow = Sheets("Tabelle1").Cells(1048576, 1).End(xlUp).Row
si9_neu_String = .Sheets("Tabelle1").Range("A" & a) & .Range("B" & a) & .Range("D" & a) _
End With