|
Hi, ich habe folgendes Problem:
Leider weiß ich nicht, wie ich mittels excel macro zb in einer Zelle wo steht: **20001, dass ** extrahiere zb mit einer If Anweisung um dann nur 20001 stehen zu haben zb mit der Funktion Rechts oder Links. Aber ich bekomme das nicht hin.
Hier zb die Angabe: In einer Studierendenliste sind manche Einträge am Anfang mit "**" gekennzeichnet.
Kopieren Sie mithilfe eines Makros sämtliche Einträge nebenan nach rechts und entfernen Sie falls nötig den Text "**".
Anmerkung: Falls beim Geb.datum etwas geändert wird, soll dieses wieder rechtsbündig angezeigt werden.
Pkz Vorname Nachname Gebdat. Adresse PLZ Ort
20001 Susi Sorglos 01.04.2004 Holzweg 7 4711 Daham
**20002 Felix Fleißig 11.11.2000 Rettungsgasse 1a 8600 **Bruck/Mur
20003 **Emil **Eifrig 31.10.2002 **Sackgasse 2 **8010 Graz
**20004 Martha Müller 15.07.2001 Heimweg 3 8605 Kapfenberg
**20005 Egon Huber 23.06.2000 Hauptstr. 35 9999 Hintertupfing
20006 Ida **Maier **07.02.1999 Holzweg 14 **4711 Daham
20007 **Max Berger 28.02.1999 Bahnhofstr. 112 8600 Bruck/Mur
20008 Klara **Schmid 03.06.2000 **Heimweg 15 8605 **Kapfenberg
**20009 Kurt Müller 17.05.1999 Studentenweg 5 8010 Graz
**20010 Klaus Hofer **08.09.2000 Fuchsweg 1 **8020 **Graz
20011 **Theo Tüchtig 24.02.2000 **Kärntner Str. 12 1010 Wien
Ich habs so probiert aber es tut sich nichts:
Dim i As Integer
Dim j As Integer
For i = 17 To 27
For j = 2 To 8
If Cells(i, j).Value = Left(Cells(i, j).Value, 2) Then
Cells(i, j + 8).Value = Right(Cells(i, j).Value, Len(Cells(i, j).Value) - 2)
Else
Cells(i, j + 8).Value = Cells(i, j).Value
End If
Next j
Next i
|