KdNr. aus Zelle auslesen

Bild

Betrifft: KdNr. aus Zelle auslesen
von: MikeS
Geschrieben am: 10.12.2003 07:44:35

Hallo,

wer kann mir bei nachfolgendem Problem helfen.

 AB
1Das ist ein Test 10000990 * und hier geht’s weiter10000990
2Hier steht A500 * und weiter geht’sA500
3Hier steht die zahl 5000000000000 * und erst hier geht es weiter5000000000000
4  
5In Spalte A steht ein Text mit div. KdNr., die in Spalte B
ausgelesen werden sollen.

Die KdNr. Steht immer vor der Zeichenkombination " *"!

Das Ergebnis sollte so aussehen, wie in Spalte C.
 
Vielen Dank MikeS
Bild


Betrifft: AW: KdNr. aus Zelle auslesen
von: Jojo
Geschrieben am: 10.12.2003 08:05:35

Hallo Mike
Wo ist die SPALTE C?
Grüß
Jojo


Bild


Betrifft: Sorry, meinte Spalte B
von: MikeS
Geschrieben am: 10.12.2003 08:10:25

Es ist noch früh und ich habe noch keinen Kaffee getrunken!!!


Bild


Betrifft: Lösung selbst erstellt
von: MikeS
Geschrieben am: 10.12.2003 09:30:20



Option Explicit

Sub Zahl_auslesen()
  Dim Startzeile%, Endzeile&
  Dim Anfang%, Ende%, i%, Zeile&, Stelle
  Dim Text$, NeuerText$, Suchzeichen$, Suchzeichen2$
  Startzeile = 1
  Endzeile = [A65536].End(xlUp).Row
  Suchzeichen = " *"
  Suchzeichen2 = " "
  
  Application.ScreenUpdating = False
  
  For Zeile = Startzeile To Endzeile
    Text = Cells(Zeile, 1)
    Ende = InStr(Text, Suchzeichen) - 1
    Text = Left(Text, Ende)
    
    For i = 1 To Ende
      Stelle = InStr(i, Text, Suchzeichen2)
      i = Stelle
      If Stelle = 0 Then
        Exit For
      Else
        Anfang = Stelle + 1
      End If
    Next i
  
    NeuerText = Mid(Text, Anfang, Ende)
    Cells(Zeile, 2) = NeuerText
  
  Next Zeile
  
  Application.ScreenUpdating = True
End Sub



     Code eingefügt mit Syntaxhighlighter 2.5



Bild

Beiträge aus den Excel-Beispielen zum Thema " KdNr. aus Zelle auslesen"