Formel für wenn

Forumthread: Formel für wenn
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Formel für wenn

Formel für wenn

25.01.2004 23:11:12

helena

Guten Abend
suche Formel in VBA
=WENN(A14<>"";(B13)+1;"")
benötige dies Variabel da Zeilen mit Inhalt nach unten rutschen
Start Zelle ist B4 Inhalt ist bereits 1
wenn ich Zeile hinzufüge und AX hat Text dann Bx aus Zelle oberhalb
+ 1
DANKE für Input
gruss helena

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel für wenn

25.01.2004 23:53:38

Nepumuk
Tipp

25.01.2004 23:57:54

Nepumuk
noch ein Fehler

26.01.2004 08:28:45

helena
Danke Nepomuk es klappt ...(o.T)

26.01.2004 09:09:06

helena

AW: Formel für wenn

25.01.2004 23:53:38

Nepumuk

Hallo Helena,
meine Variante (unabhängig ob in B13 schon ein Wert steht):
FormulaR1C1 = "=IF(RC[-1]<>"""",ROW(RC[-1])-3,"""")"
deine Variante (abhängig davon, dass in B13 schon ein Wert steht:
FormulaR1C1 = "=IF(RC[-1]<>"""",R[-1]C+1,"""")"
Gruß
Nepumuk

Tipp

25.01.2004 23:57:54

Nepumuk

Hallo Helena,
einfach die Formel bei eingeschalteter Makroaufzeichnung eingeben.
Gruß
Nepumuk

noch ein Fehler

26.01.2004 08:28:45

helena

Hallo Nepomuk
Fehlermeldung Var. nicht definiert


Sub CallMaske()
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Columns("A:B").Hidden = True
Range(Cells(2, 3), Cells(Cells(65536, 2).End(xlUp).Row + 1, 7)).Activate
ActiveSheet.ShowDataForm
Columns("A:B").Hidden = False
Range("A1").Activate
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
FormulaR1C1 = "=IF(RC[-1]<>"""",R[-1]C+1,"""")"
End Sub

nach einfügen der Formel ???
Code ist von MASKE von gestern
Danke für Input
gruss helena

Danke Nepomuk es klappt ...(o.T)

26.01.2004 09:09:06

helena

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!