Alter Code funktioniert in neuem Excel nicht mehr
19.10.2015 17:08:00
Tom
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