Hallöchen !
Wer kann mir helfen?
Ich möchte Formeln von Zeile 5 - 205 aus dem Blatt "Einstellungen" ins Blatt "Graph" einfügen, nur aber jeweils 2 Zeilen frei lassen, also in jede 3. Zeile kopieren!
Vielen Dank im vorraus!
Hallo Maitag,
das sollte es tun. ' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
OptionExplicit
Sub kopiereFormeln_1Zu5() Dim rng As Range, r As Range Dim lngR AsLong
OnErrorGoTo ErrExit GMS
Set rng = Sheets("Einstellungen").Rows("5:205")
lngR = 5
With Sheets("Graph") For Each r In rng.Rows .Rows(lngR) = r.Formula lngR = lngR + 3 Next EndWith
ErrExit:
GMS True Set rng = Nothing EndSub
Sub GMS(OptionalByVal Modus AsBoolean = False)
With Application .ScreenUpdating = Modus .EnableEvents = Modus .DisplayAlerts = Modus .EnableCancelKey = IIf(Modus, 1, 0) .Calculation = IIf(Modus, -4105, -4135) .Cursor = IIf(Modus, -4143, 2) EndWith
EndSub
Gruß Sepp
Anzeige
AW: Formeln jede 3.Zeile einfügen!?!
24.04.2007 21:50:00
Mayday!!
Servus Sepp!
Der Code läuft fehlerfrei, aber es rührt sich nichts!
Vielleicht kannst du mir nochmals helfen?
Von Einstellungen C5 - C205 nach Graph --Startzelle C4 bis von de Formeln in Einstellungen nix mehr da is!
Danke noch mals!
AW: Formeln jede 3.Zeile einfügen!?!
24.04.2007 21:53:00
Josef
Hallo ? (vielleicht hast du auch einen Namen, oder ist der so hässlich, daß du ihn uns nicht nennen willst?)
was nun, Zeile 5-205, oder nur von C5-C205?
Was "heist es rührt sich nichts"?