Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1800to1804
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
Inhaltsverzeichnis

Formeleintrag über VBA

Formeleintrag über VBA
20.12.2020 14:29:52
Holger
Hallo. steh mal auf der Leitung. möchte eine automatische Zeilen Nummerierung per VBA eintragen. Dies funktioniert mit:
Sheets("Tabelle2").Cells(2, 1).FormulaLocal = "=TEXT(ZEILE()-ZEILE($1:$2); ""AvF0"")"
bzw.: (geht auch mit ASCii)
Sheets("Tabelle2").Cells(1, 1).FormulaLocal = "=TEXT(ZEILE()-ZEILE($1:$2); UNIZEICHEN((65)) & ""vF0"")"
somit erhalt ich eine fortlaufende Nummerierung AvF0, AvF1.........
sobald ich aber eine Nummerierung wie zb. BvF0 haben möchte funktionier dies nicht
Sheets("Tabelle2").Cells(3, 1).FormulaLocal = "=TEXT(ZEILE()-ZEILE($1:$2); UNIZEICHEN((66)) & ""vF0"")"
Sheets("Tabelle2").Cells(4, 1).FormulaLocal = "=TEXT(ZEILE()-ZEILE($1:$2); ""BvF0"")"
hat den Anschein wie wenn nur manche Buchstaben sich da reinscheiben lassen....
vielleicht kann mir da jemand Helfen, dies zu verstehen
Danke Holger

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeleintrag über VBA
20.12.2020 15:06:49
onur
Erkläre doch mal GENAU (Schritt für Schritt), was die Formel machen soll.
AW: Formeleintrag über VBA
20.12.2020 15:35:52
Holger
eine fortlauf. Zeilennummerierung =ZEILE()
um die Kopfzeile nicht mit zu zählen -ZEILE(1$:$2)
und um die Nummerierung von anderen Tabellen Nummerierungen zu unterscheiden eben noch eine paar Buchstaben. Also so: =TEXT(ZEILE()-ZEILE($1:$2);"AvF0") zum Beisp.. Das auch funktioniert.
Sobald ich aber den Buchstabenwert auf z. "BvF0" abändere, geht es nicht mehr.
"CvF0" geht wieder....."DvF0"und "FvF0" auch...aber "GvF0" oder "HvF0" nicht ....
AW: Formeleintrag über VBA
20.12.2020 15:45:21
Daniel
Hi
im Zahlenformat-String der TEXT-Funktion gibt es Zeichen, die eine Sonderfunktion haben.
bspw steht "J" dafür, hier die Jahreszahl eines Datums anzuzeigen.
Diese Buchstaben kann man dann so direkt nicht über die TEXT-Funktion der Zahl anfügen.
entweder verkettest du einfach:
="BvF"&Text(ZEILE()-ZEILE($1:$2);"0")
oder wenn du in der Textfunktion bleiben willst, musst du diesen Zeichen entweder das "\" voranstellen (dies muss vor jedem einzelnen dieser Zeichen erfolgen) oder du setzt den Text in anführungszeichen.
Auch hier gilt, die Regel, dass anführungszeiche, die zum Text gehören, immer verdoppelt werden müssen, damit der Interpreter sie von den Anführungszeichen unterscheiden kann, die den Text begrenzen:
=TEXT(ZEILE()-ZEILE($1:$2);"""AvF""0")
Gruß Daniel
Anzeige
AW: Formeleintrag über VBA
20.12.2020 16:07:50
Holger
Cool...Danke ! so geht's
="GvF"&TEXT(ZEILE()-ZEILE($1:$2);"0")
im VBA schauts dann so aus
.FormulaLocal = "=""GvF""&TEXT(ZEILE()-ZEILE($1:$2);""0"")"
liebe Grüße
AW: Formeleintrag über VBA
20.12.2020 15:58:41
onur

Sheets("Tabelle1").Cells(2, 1).FormulaLocal = "TEXT(ZEILE()-ZEILE($1:$2); """"""BvF""""0"")"

AW: Formeleintrag über VBA
20.12.2020 16:28:38
Holger
cool, danke...das ist ja schon eine ganz Farm von Gänsefüßchen

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige