Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel für wenn

Formel für wenn
25.01.2004 22: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
Anzeige
AW: Formel für wenn
25.01.2004 22: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 22:57:54
Nepumuk
Hallo Helena,
einfach die Formel bei eingeschalteter Makroaufzeichnung eingeben.
Gruß
Nepumuk
noch ein Fehler
26.01.2004 07: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
Anzeige
Danke Nepomuk es klappt ...(o.T)
26.01.2004 08:09:06
helena
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige