Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerschlag einfügen

Leerschlag einfügen
14.05.2007 08:46:37
Gregor
Hallo
In Spalte B habe ich unteschiedliche Einträge, ua. solche beginnend mit "S12" zB. S1219213, S1219215, S1219220 usw. Nun möchte ich bei diesen Einträgen nach der "S12" einen Leerschlag einfügen, also S12 19213, S12 19215 usw. Alle anderen Einträge, zB R 6612 oder S6 18627 dürfen nicht verändert werden.
Solche und ähnliche Schreibweisen muss ich immer wieder verändern und möchte das deshalb mit einem Marko machen.
Vielen Dank und Gruss
Gregor

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

Betreff
Datum
Anwender
Anzeige
AW: Leerschlag einfügen
14.05.2007 09:05:43
Rudi
Hallo,

Sub tt()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Columns(2).SpecialCells(xlCellTypeConstants)
If c Like "S12*" Then
c = "S12 " & Right(c, Len(c) - 3)
End If
Next c
Application.ScreenUpdating = True
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Leerschlag einfügen
14.05.2007 09:14:00
Gregor
Rudi
Vielen Dank, klappt bestens.
Gregor

AW: Leerschlag einfügen
14.05.2007 09:12:07
Chaos
Servus,
wenn du nur S12... ändern willst, kannst du das beispielsweise so machen:

Private Sub Workbook_Open()
On Error GoTo Fehler
Sheets("test").Select
Range("B:B").Select
Selection.Replace What:="S12", Replacement:="S12 ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Exit Sub
Fehler:
MsgBox "schon geändert!"
End Sub




Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Fehler
Sheets("test").Select
Range("B:B").Select
Selection.Replace What:="S12 ", Replacement:="S12", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ThisWorkbook.Save
Exit Sub
Fehler:
MsgBox "schon geändert!"
End Sub


Das erste Makro fügt ein leezeichen beim Start einund das 2. makro setzt wieder zurück, weil das erste diese immer ein Leerzeichen einfügt.
Gruß
Chaos

Anzeige
AW: Leerschlag einfügen
14.05.2007 09:39:00
ingUR
Hallo, Gregor,
vielleicht sollten, je nach Einsatz, die vorgeschlagenen Lösungen noch dahingehend erweitert werden, dass nur die Zelleninhalte verändert werden, die eine Textkette, beginnend mit "S12" haben und an der dritten Stelle kein Leerzeichen aufweisen, da es ansonsten bei wiederholtem Einsatz des Makros auf diese Liste dazu kommt, dass sich die Anzahl der Leerstellen zwischen S12 und der folgenden Zifferngruppe entsprechnend erhöht.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige