Herbers Excel-Forum - das Archiv

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
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " KdNr. aus Zelle auslesen"
Mehrfachauswahl aus ListBox auslesen Dateien aus Listbox auslesen und öffnen
Bereich in RefEdit-Element eingeben und auslesen Auslesen der Arbeitsmappeneigenschaften
UserName aus der Windows-Registry auslesen Eintrag aus der Win.ini auslesen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen Ausgewählte Arbeitsblätter auslesen
Mehrfachauswahl in ListBox auslesen