Salve Reinhard,
deutsches Office?
ja
Dim MERK As Variant (Long , Integer)
Was soll das sein?
Ich hab’s mal mit den verschiedenen Datentypen probiert.
Poste mal bitte den kompletten Code.
Sub MOVE5()
'So funktioniert 's :
’ EXCEL :
’ AUSWERTUNGEN!A4 = VERWEIS(2;1/(A1:A100"");ZEILE(A:A))
’ AUSWERTUNGEN!B4 = VERWEIS(2;1/(B1:B100"");ZEILE(B:B))
’ VBA :
’ 4. Letzte Formel-Zeile in AUSWERTUNG um eine Zeile verschieben, kopieren und als Werte
’ in vorherige Zeile wieder einfügen
’ Blatt AUSWERTUNGEN auswählen
Sheets(„AUSWERTUNGEN“).Select
’ letzte Zelle Spalte „A“ kopieren und in nächste Zelle Spalte „A“ einfügen
Range(„A“ & Range(„A4“)).Select
Selection.Copy
Range(„A“ & Range(„A4“) + 1).Select
ActiveSheet.Paste
’ Leer-Zellen einfügen vor letzter Zeile von Spalte „B“ bis Spalte „AF“
Range(„B“ & Range(„B4“), „AF“ & Range(„B4“)).Select
Selection.Insert Shift:=xlDown
’ letzte Zeile,Spalte B bis AE auswählen
Range(„B“ & Range(„B4“), „AF“ & Range(„B4“)).Select
Selection.Copy
’ Werte und Zahlenformate Spalte B bis AF, Zeile: letzte Zeile - 1 einfügen
Range(„B“ & Range(„B4“) - 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
’ Und so nicht :
Dim MERK1 As Long
Dim MERK2 As Long
’ Blatt AUSWERTUNGEN auswählen
Sheets(„AUSWERTUNGEN“).Select
MERK1 = WorksheetFunction.Lookup(2, 1 / (Sheets(„AUSWERTUNGEN“).Range(„A1:A100“) _
„“""), Sheets(„AUSWERTUNGEN“).Rows(1, 100))
MERK2 = WorksheetFunction.Lookup(2, 1 / (Sheets(„AUSWERTUNGEN“).Range(„B1:B100“) _
„“""), Sheets(„AUSWERTUNGEN“).Rows(1, 100))
’ letzte Zelle Spalte „A“ kopieren und in nächste Zelle Spalte „A“ einfügen
Range(„A“ & MERK1).Select
Selection.Copy
Range(„A“ & MERK1 + 1).Select
ActiveSheet.Paste
’ Leer-Zellen einfügen vor letzter Zeile von Spalte „B“ bis Spalte „AF“
Range(„B“ & MERK2, „AF“ & MERK2).Select
Selection.Insert Shift:=xlDown
’ letzte Zeile,Spalte B bis AE auswählen
Range(„B“ & MERK2, „AF“ & MERK2).Select
Selection.Copy
’ Werte und Zahlenformate Spalte B bis AF, Zeile: letzte Zeile - 1 einfügen
Range(„B“ & MERK2 - 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Hoffentlich siehst du meinen Fehler!
Gruß Manne
