Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1052to1056
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

Funktion Säubern ins Makro einbinden

Funktion Säubern ins Makro einbinden
22.02.2009 12:07:47
Steven
Hallo Leute,
wie kann ich per Makro meine Artikelnummern in Spalte A (mit Überschrift) von ungewollten Importüberbleibseln (Oracle) säubern, so dass am Ende reine Nummern in Spalte A über bleiben.
(Ich weiss nicht ob es dabei wichtig ist, dass die Spalte vorher sortiert wurde. Damit habe ich folgende Spaltenstruktur für Spalte A von oben nach unten:
Überschrift
mehrere Zeilen Artikelnummern
mehrere Zeilen noch zu säubernde Artikelnummern
Mehrere Zeilen Text und Sonderzeichen (die ich später per Makro lösche))
Gruss
Steven

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

Betreff
Datum
Anwender
Anzeige
AW: Funktion Säubern ins Makro einbinden
22.02.2009 12:21:15
Ramses
Hallo
Kannst du mal eine Beispielmappe hochladen mit entsprechenden Daten.
Unter deiner Beschreibung kann ich mir gar nichts vorstellen
Gruss Rainer
AW: Funktion Säubern ins Makro einbinden
22.02.2009 12:58:19
Steven
Hallo Rainer,
jetzt hat der Upload geklappt. Anbei "vor" und gewünscht "nach" dem Makro. Die Zeichen, die durch den Import von Oracledownloads übernommen sind, sehen aus wie kleine Vierecke. Diese bekomme ich per Hand mit der Säubernfunktion weg, weiss nur nicht, wie mit einem Makro
https://www.herber.de/bbs/user/59656.xls
AW: Funktion Säubern ins Makro einbinden
22.02.2009 13:07:35
Daniel
Hi
das kommt natürlich darauf an, was du jetzt unter "säubern" verstehst.
wenn es nur das Anwenden der Funktion SÄUBERN auf die Spalte A ist , ann geht da mit folgendem Makro:

Sub Säubern
With activesheet.Cells(1,1).currentregion
with .Columns(.columns.count).offset(0,1)
.FormulaR1C1Local = "=Säubern(ZS1)"
Activesheet.Cells(1,1).currentregion.Columns(1).formula = .Value
.Clear
End With
End with
End Sub


Gruß, Daniel

Anzeige
AW: Funktion Säubern ins Makro einbinden
22.02.2009 13:17:34
Steven
Hallo Daniel,
ich kann leider erst morgen mit Gewissheit sagen, ob Dein toller Tip
auch mit den Originaldownloads funktioniert, bei mir hier auf jeden
Fall klappt es. Dafür ein ganz ganz grosses Danke.
Beste Gruesse
Steven

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige