Leider zeigt mir das Makro Laufzeitfehler 7
Nicht genügend Speicher.
Hat jemand eine Idee wie ich das umgehen kann? Auf einigen PCs funktioniert es aber auf anderen auch nicht.
Vielen Dank
für Hilfe
Sub test()
Zeile = 1
ZeileNeu = 2
eins = Sheets("Tabelle1").Range("A" & Zeile & ":IV" & Zeile)
zwei = Sheets("Tabelle1").Range("A" & ZeileNeu & ":IV" & ZeileNeu)
Sheets("Tabelle1").Range("A" & Zeile & ":IV" & Zeile) = zwei
Sheets("Tabelle1").Range("A" & ZeileNeu & ":IV" & ZeileNeu) = eins
End Sub