Thema Datum  Von Nutzer Rating
Antwort
Rot "**" aus Zellen extrahieren- nur wie?
24.05.2022 09:46:04 akiking24
NotSolved
24.05.2022 10:32:39 Mase
NotSolved
24.05.2022 10:47:42 Gast73118
Solved

Ansicht des Beitrags:
Von:
akiking24
Datum:
24.05.2022 09:46:04
Views:
108
Rating: Antwort:
  Ja
Thema:
"**" aus Zellen extrahieren- nur wie?

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
 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot "**" aus Zellen extrahieren- nur wie?
24.05.2022 09:46:04 akiking24
NotSolved
24.05.2022 10:32:39 Mase
NotSolved
24.05.2022 10:47:42 Gast73118
Solved