Alter Code funktioniert in neuem Excel nicht mehr

Bild

Betrifft: Alter Code funktioniert in neuem Excel nicht mehr
von: Tom
Geschrieben am: 19.10.2015 17:08:00

Hallo liebes Forum,
ich habe nachfolgenden Code, der mir aus Tabelle 1 Bereichsweise Daten in Tabelle 2 kopiert. Bereichsweise deswegen, da dieses keine zusammenhängende Bereiche sind
Code funktionierte in vorheriger Excel-Version
Code funktioniert wenn dieser manuell mit F8 ausgeführt wird
Code funktioniert wenn dieser direkt im Anschluss per Button automatisch (nicht F8) ausgeführt wird.
Code funktioniert nicht wenn dieser direkt nach Excelneustart per Button automatisch (nicht F8) ausgeführt wird
Nicht funktioniert ist etwas falsch beschrieben. Das Makro wird auch ausgeführt, jedoch werden alle Werte in Tabelle 2 in den Anfangszeilen ab Zeile 5 eingefügt und nicht nach der korrekten Position gesucht bevor die Daten eingefügt werden.
Funktionsweise:
Das Makro sucht den in Tabelle 1 in Spalte A angegebenen Wert in der Tabelle 2 Spalte A. Wird der Wert in Tabelle 2 gefunden, so wird der zugehörige Bereich von Tabelle 1 zu Tabelle 2 kopiert.
Leider reichen meine VBA Kenntnise nicht aus weshalb das Makro auf dem manuellen F8 Tippen funktioniert und automatisch dieses nicht macht.
Gruß Tom

Sub Kopieren()
Sheets("Tabelle1").Select
Dim ii As Integer
Dim rng As Range
For ii = 16 To 163
If Sheets("Tabelle1").Cells(ii, 1) = "" Then GoTo nii
  Set rng = Sheets("Tabelle2").Range("A5:A8000").Find(what:=Cells(ii, 1), LookIn:=xlValues)
    If rng Is Nothing Then GoTo nii
 
 Sheets("Tabelle1").Range("C" & ii & ":v" & ii + 9).Copy
Sheets("Tabelle2").Range("D" & rng.Row).PasteSpecial (xlPasteValues)
nii:
Next ii
    Application.CutCopyMode = False
End Sub

Bild

Betrifft: AW: Alter Code funktioniert in neuem Excel nicht mehr
von: EtoPHG
Geschrieben am: 19.10.2015 17:16:39
Hallo Tom,

what:=Cells(ii, 1)
ist nicht vollständig qualifiziert! Es müsste wohl heissen:
what:=Sheets("Tabelle1").Cells(ii, 1), 

Gruess Hansueli

Bild

Betrifft: AW: Alter Code funktioniert in neuem Excel nicht mehr
von: Tom
Geschrieben am: 19.10.2015 17:58:24
Hallo Hansueli,
vielen Dank für deine Antwort, ich werde es die nächsten Tage ausprobieren.
Gruß Tom

 Bild

Beiträge aus den Excel-Beispielen zum Thema "textboxen füllen"