Thema Datum  Von Nutzer Rating
Antwort
16.04.2013 16:17:39 Marion
NotSolved
17.04.2013 13:35:54 Marion
NotSolved
Rot Dringend Hilfe benötigt: Bereinigen von EXCEL-Zellen
 17.04.2013 17:23:34 Holger
*****
Solved
19.04.2013 13:28:22 Max
NotSolved
18.04.2013 10:40:54 Marion
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
17.04.2013 17:23:34		 Views:
1366		 Rating:
     
Antwort:
 Nein
Thema:
Dringend Hilfe benötigt: Bereinigen von EXCEL-Zellen

Hallo Marion,

quick and dirty und ungetestet:

 

sub Excelzellen_Bereinigen()
For i = 1 To Cells(Rows.Count, 10).End(xlUp).Row
    For j = 1 To Len(Cells(i, 10))
        If InStr("0123456789", Mid(Cells(i, 10), j, 1)) > 0 Then
            Cells(i, 18) = ""
            If j > 5 And j < 9 Then
                Cells(i, 18) = Left(Cells(i, 10), j)
            End If
        Else
            Exit For
        End If
    Next j
Next i
end sub

Gruß

 

Holger
 

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
16.04.2013 16:17:39 Marion
NotSolved
17.04.2013 13:35:54 Marion
NotSolved
Rot Dringend Hilfe benötigt: Bereinigen von EXCEL-Zellen
 17.04.2013 17:23:34 Holger
*****
Solved
19.04.2013 13:28:22 Max
NotSolved
18.04.2013 10:40:54 Marion
NotSolved