Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Betrifft MRR : Text in Spalten

Betrifft MRR : Text in Spalten
06.05.2003 15:04:09
Julia
Hallo Matthias,
Du hast mir vorher folgende Formel gegeben
ActiveCell.Value= Right(ActiveCell.Offset(0, -1), Len(ActiveCell.Offset(0, -1).Value) - InStrRev(ActiveCell.Offset(0, -1), " ")).
Wenn ich dies zu einem Makro baue also,
Sub Hausnummern()
ActiveCell.Value.....
End Sub
dann löscht Excel den gesamten Zellinhalt!
wenn ich nur die Formel verwende (=Right(.....)), dann spuckt excel fehlermeldung.
Also hilf mir bitte nochmals!
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Betrifft MRR : Text in Spalten
06.05.2003 15:12:45
Andreas Walter

Wahrscheinlich wendest Du dieses falsch an.


Wenn in Zelle z.B. D18 etwas wie: ab cd ef gh
steht UND DU DANN IN ZEILE E18 GEHST (= eine Zelle nach rechts von D18) und dann das Makro aufrufst, passiert was in E18 auf Grund von D18 und zwar es kommt gh raus

Re: Betrifft MRR : Text in Spalten
06.05.2003 15:22:12
Julia

Ja, danke bin dumm. Aber jetzt noch ne weitere Frage.
Wie verschwindet dann "gh" in D18?

Re: Betrifft MRR : Text in Spalten
06.05.2003 15:35:20
Andreas Walter

Folgende Formel gibt STATT die Hausnummer, die Strasse
ActiveCell.Value = Left(ActiveCell.Offset(0, -1), InStrRev(ActiveCell.Offset(0, -1), " "))

Ich schätze a mal du solltest folgendes machen


Ein Makro schreiben
ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Left(ActiveCell.Offset(0, -1), InStrRev(ActiveCell.Offset(0, -1), " "))


ActiveCell.Offset(0, 1).Select


ActiveCell.Value= Right(ActiveCell.Offset(0, -2), Len(ActiveCell.Offset(0, -2).Value) - InStrRev(ActiveCell.Offset(0, -2), " "))


Wenn Du IN DEM FELD mit der Starsse bist und dieses Makro aufrufst, dann
1) bewegt er ein Feld nach rechts
2) Schreibt den Namen der Strasse darin
3) bewegt er ein (weiteres) Feld nach rechts
4) schreibt die Hausnummer darin.

Klar?

Anzeige
Re: Betrifft MRR : Text in Spalten
06.05.2003 15:39:26
Julia

Alles klar!
Krieg' sogar ich hin.
Danke


318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige