Mit Makros Zeilen und Formel einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo schon wieder
ich brauche dringend Hilfe denn ich komme nicht weiter.
Ich möchte ein Makro kreieren, mit dem ich eine neue Zeile einfügen und immer in eine bestimmte spalte in der neuen Zeile eine formel einfügen möchte, deren bezüge sich natürlich auf die neue zeile bezieht.

Beispiel:

  1. Neue Zeile einfügen
  2. Immer in die Zelle der Spalte D jeder neuen Zeile soll folgende Formel eingefügt werden:
    =WENN(selbe Zeile Spalte C)=0;„JA“;„Nein“)

Kann mir jemand das Makro dazu schreiben ?

#2
  1. Neue Zeile einfügen
  2. Immer in die Zelle der Spalte D jeder neuen Zeile soll
    folgende Formel eingefügt werden:
    =WENN(selbe Zeile Spalte C)=0;„JA“;„Nein“)

Kann mir jemand das Makro dazu schreiben ?

hallo Svenson,

dann mach das doch manuell und zeichne ein Makro auf dabei.

Gruß
Reinhard

#3

Hallo reinhard

danke dir für deine antwort. Das habe ich auch schon versucht, aber wenn ich es dann über den Makro versuche kopiert er mir zwar die formel, aber abhängig davon welche zelle ich gerade markiert habe landet die formel dann in einer anderen als der gewünschten zelle. Weißt du was ich meine ? :smile:

#4

danke dir für deine antwort. Das habe ich auch schon versucht,
aber wenn ich es dann über den Makro versuche kopiert er mir
zwar die formel, aber abhängig davon welche zelle ich gerade
markiert habe landet die formel dann in einer anderen als der
gewünschten zelle. Weißt du was ich meine ? :smile:

Hallo Svenson,

aufgezeichnete makros sind nur die Grundbasis, dann muss man sie noch frisieren :smile:

Probier mal diesen Code:

Option Explicit

Sub Einfuegen()
Dim Zei As Long
ActiveCell.EntireRow.Insert
Zei = ActiveCell.EntireRow.Row
Cells(Zei, 4).FormulaLocal = "=Wenn(C" & Zei & "=0;""JA"";""NEIN"")"
End Sub

Gruß
Reinhard