Forums Neueste Beiträge
 

Zeichen in gefüllt Zelle einfügen

04/04/2008 - 10:16 von Martina Winter | Report spam
Hallo Zusammen

ich bin ein VBA-Anfànger und habe erfolglos einige Zeit nach einer Lösung
für folgendes Problem gesucht, könnt Ihr mir helfen?
In einer Zelle können die Inhalte wie
DI010301
AI011101
M00036


stehen. Also entwender 2 Buchstaben oder nur einer. Ich soll nun das Zeichen
"_" vor den Zahlen einfügen. Das würde dann so
aussehen
DI_010301
AI_011101
M_00036

Wie muss ich vorgehen?
Ich arbeite mit der Excel-Version 2003.

Vielen Dank für Eure Unterstützung.

freundliche Grüsse

Martina Winter
 

Lesen sie die antworten

#1 Claus Busch
04/04/2008 - 10:33 | Warnen spam
Hallo MArtina,

Am Fri, 4 Apr 2008 10:16:14 +0200 schrieb Martina Winter:


ich bin ein VBA-Anfànger und habe erfolglos einige Zeit nach einer Lösung
für folgendes Problem gesucht, könnt Ihr mir helfen?
In einer Zelle können die Inhalte wie
DI010301
AI011101
M00036

stehen. Also entwender 2 Buchstaben oder nur einer. Ich soll nun das Zeichen
"_" vor den Zahlen einfügen. Das würde dann so
aussehen
DI_010301
AI_011101
M_00036



teste mal an einer Kopie deiner Mappe folgendes Makro (Code geht davon aus,
dass deine Werte ab A2 abwàrts stehen. Falls nicht, bitte Spalte und
Bereich anpassen):
Sub Unterstrich()

Dim rngzelle As Range
Dim LRow As Long

'Hier die Spalte anpassen
LRow = Cells(Rows.Count, 1).End(xlUp).Row

'Hier Bereich anpassen
For Each rngzelle In Range("A2:A" & LRow)
If Mid(rngzelle, 2, 1) > Chr(64) _
And Mid(rngzelle, 2, 1) < Chr(92) Then
rngzelle.Value = Left(rngzelle, 2) & _
"_" & Right(rngzelle, Len(rngzelle) - 2)
Else
rngzelle.Value = Left(rngzelle, 1) & _
"_" & Right(rngzelle, Len(rngzelle) - 1)
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen