Kleines anfänger Makro in Excel zum einfügen eines Zeichens in jede n-te Zeile
Guten Abend,
langsam werde ich noch zum allrounder...
... Ich benötige ein VB-Makro. Ich habe viel probiert über Makro aufnehmen um dann zu "prutschen" aber es will mir nicht gelingen..
ich brauche ein leichtes makro, dass in jede 5te Zeile (angefangen also von A1, sodass der erste Wert in A5 geschrieben wird) ein "-" (Bindestrich ohne"") einfügt...
die Sachen aus dem Netz sind mir zu kompliziert als das ich diese jemals verstehen könnte
das war meine erste Idee, die ich mit den Makro aufzeichnen "erarbeitet" hatte:
For I = 5 To 1000 Step 5 + 1
ActiveCell.FormulaR1C1 = "-"
Range("A5" + I).Select
Next I
geeeeht nicht :/
langsam werde ich noch zum allrounder...
... Ich benötige ein VB-Makro. Ich habe viel probiert über Makro aufnehmen um dann zu "prutschen" aber es will mir nicht gelingen..
ich brauche ein leichtes makro, dass in jede 5te Zeile (angefangen also von A1, sodass der erste Wert in A5 geschrieben wird) ein "-" (Bindestrich ohne"") einfügt...
die Sachen aus dem Netz sind mir zu kompliziert als das ich diese jemals verstehen könnte
das war meine erste Idee, die ich mit den Makro aufzeichnen "erarbeitet" hatte:
For I = 5 To 1000 Step 5 + 1
ActiveCell.FormulaR1C1 = "-"
Range("A5" + I).Select
Next I
geeeeht nicht :/
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 194260
Url: https://administrator.de/forum/kleines-anfaenger-makro-in-excel-zum-einfuegen-eines-zeichens-in-jede-n-te-zeile-194260.html
Ausgedruckt am: 08.04.2025 um 09:04 Uhr
2 Kommentare
Neuester Kommentar
Hallo Belloci!
Wenn Du "eintragen" und nicht "einfügen" meinst, dann sollte das so gehen:
Falls aber gemeint sein sollte, dass in eine bestehende Formel ein "-" (gleich nach dem "=") eingefügt werden soll, dann:
Grüße
bastla
Wenn Du "eintragen" und nicht "einfügen" meinst, dann sollte das so gehen:
For i = 5 To 1000 Step 5
Cells(i, "A").Value = "-"
Next i
For i = 5 To 1000 Step 5
Formel = Cells(i, "A").Formula
If Left(Formel, 1) = "=" Then Cells(i, "A").Formula = "=-" & Mid(Formel, 2)
Next i
bastla