Daten auslesen (kopieren)
09.10.2012 19:43:26
Excel_Neuling
ich habe ein Problem beim auslesen einer Tabelle.
Aus dem Arbeitsblatt "Erfassung" sollen die Daten der Spalte B (bis "end") ausgelesen
und auf das Blatt Datenbank kopiert werden (per Schaltfläche).
Leider bekomme ich den Laufzeitfehler 1004. Wo habe ich einen Fehler im Code?
"Komisch" ist, dass der Code unter Windows funktioniert, hier unter Mac OSX / Excel
der oben genannte Fehler angezeigt wird.
Private Sub Macro_1()
Dim source
Dim Target
target_row = 1
source_row = 1
Do
source = Worksheets("Datenbank").Cells(target_row, 1)
If (IsEmpty(source)) Then Exit Do
taregt_row = target_row + 1
Loop
Do
source = Worksheets("Erfassung").Cells(source_row, 2)
If source = "end" Then Exit Do
Worksheets("Datenbank").Cells(target_row, target_col) = source
source_row = source_row + 1
target_col = target_col + 1
Loop
Sheets("Erfassung").Select
Range("B1:B5").Select
Selection.ClearContents
Range("B1").Select
ActiveWorkbook.Save
MsgBox "Datenübertragung erfolgreich, die Datei wurde gespeichert!", vbOKOnly, _
Statusmeldung
End Sub