Hallo Forumler,
wo liegt der Fehler an folgendem Makro?
Sub MAIN
BearbeitenAllesMarkieren
BearbeitenErsetzen .Finden = „,“ + Chr$(34), .Ersetzen = „;“, .NurWort = 0, \
.GroßKleinSchreibung = 0, .Format = 0, .AllesErsetzen = 1
BearbeitenErsetzen .Finden = Chr$(34), .Ersetzen = „“, .NurWort = 0, \
.GroßKleinSchreibung = 0, .Format = 0, .AllesErsetzen = 1
TabelleTabelleEinfügen
ZeichLinks 1
TabelleSpalteMarkieren
TabelleSpaltenLöschen
TabelleZellenEinfügen .ZellenVerschieben = 1
BearbeitenRückgängig
AbsatzUnten 1
ZeileUnten 2
ZeileOben 1
ZeichLinks 1
VorherigeZelle
ZeichLinks 1
TabelleZeileMarkieren
TabelleZeilenEinfügen .AnzZeilen = „“
BeginnZeile
Einfügen „NAME“
NächsteZelle
Einfügen „ORT“
NächsteZelle
Einfügen „STRASSE“
NächsteZelle
Einfügen „SONST“
End Sub
Vielen Dank.
MfG
Benjamin