Ergebnis 1 bis 8 von 8

Thema: VBA Zahlen aus String seperat abspeichern

  1. #1
    Unregistriert
    Gast

    Standard VBA Zahlen aus String seperat abspeichern

    Hallo an alle! Ich brauche bei folgendem Problem ein wenig Hilfe:

    Eine Variable "Bereich" kann z.B. folgendermaßen aussehen: "3-5", "3<-6", ">160"
    Es soll jetzt überprüft werden, ob eine Zahl (z.B. 4) in einem solch möglichen Bereich liegt.

    Ich habe mir vorgestellt, dass der Code nun Zeichen für Zeichen überprüft. Alle Zahlen werden in eine Variable "Zahl1" abgespeichert, bis ein Zeichen erfolgt, dass keine Zahl ist. Dann werden alle Zeichen in eine Variable abgespeichert "Zeichen", bis wieder eine Zahl erfolgt. Danach werden alle weiterfolgenden Zahlen in eine Variable "Zahl2" abgespeichert.

    Beispielsweise wird aus Bereich = "3-5" :
    Zahl 1 = 3
    Zeichen = "-"
    Zahl 2 = 5

    Oder aus ">160"
    Zahl 1 = 0
    Zeichen = ">"
    Zahl 2 = 160

    Oder aus "3<-6"
    Zahl 1 = 3
    Zeichen = "<-"
    Zahl 2 = 6

    Es werden nur positive Zahlen eingegeben.
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!

  2. #2
    Forum Guru Avatar von driver
    Registriert seit
    10.04.2006
    Alter
    34
    Beiträge
    20.729
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VBA Zahlen aus String seperat abspeichern

    <- sollte vermutlich <= sein, oder ?

    ansich fällt mir spontan keine bessere möglichkeit ein. du musst den string jedenfalls
    zerlegen und die zahlen rausfiltern. prüfen obs ne zahl is kannste mit der funktion
    isnumeric(). die zeichen bekommst entweder mit ner kombination aus left und right oder
    mit mid müsste es auch gehn.

    hast da jetzt noch ne bestimmte frage ? kann nämlich oben weder ne frage noch
    n problem rauslesen...
    >> die icq-schreiberlinge bitte dies hier beachten



    1679 entdeckte Gottfried Wilhelm Leibniz das Binärsystem, bei einem Gespräch mit seiner Mutter: "Ja..., Nein..., Nein..., Nein..., Ja..., Ja..., Nein..."

  3. #3
    Unregistriert
    Gast

    Standard AW: VBA Zahlen aus String seperat abspeichern

    Problem ist das Coden, da ich in VBA noch recht unerfahren bin ^^.

    Bisher schaut es so aus:

    Dim Bereich, Zeichen, Zahl1, Zahl2 As String
    Dim Cut As Double

    Cut = 0
    Bereich = "3-4"

    For i = 1 To Len(Bereich)

    If Cut = 0 Then

    If IsNumeric(Mid(Bereich, 1)) Then
    Zahl1 = Zahl1 & Mid(Bereich, i, 1)
    Else
    Zeichen = Zeichen & Mid(Bereich, i, 1)
    Cut = 1
    End If

    End If


    If Cut = 1 Then

    If IsNumeric(Mid(Bereich, 1)) Then
    Zahl2 = Zahl2 & Mid(Bereich, i, 1)
    End If

    End If

    Next i

    Leider ist jetzt Zeichen = 3 und Zahl1, Zahl2 sind leer

  4. #4
    Unregistriert
    Gast

    Standard AW: VBA Zahlen aus String seperat abspeichern

    Oh lag daran, dass ich das "i" 2x bei (Bereich, i, 1) vergessen hab ...

    Gibts ne bessere Lösung als mein Code?

  5. #5
    Forum Guru Avatar von driver
    Registriert seit
    10.04.2006
    Alter
    34
    Beiträge
    20.729
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VBA Zahlen aus String seperat abspeichern

    wie kommst du zu dem bereich ?
    muss der im string-format sein ?

    sonst würd ich n array anlegen...

    arrBereich(0,1) = "3"
    arrBereich(0,2) = "4"
    arrBereich(0,3) = "-"

    so kannste dir mehrere bereiche definieren und hast direkten zugriff.

    ansonsten passt der grundgedanke, doch soviel if brauchst net...
    Code:
    zahl1 = 0
    zahl2 = 0
    For i = 1 To Len(Bereich)
        wert = mid(Bereich,i,1)
        If IsNumeric(wert) Then
            if zahl1 = 0 then    Zahl1 = wert
            if zahl2 = 0 then    Zahl2 = wert
        Else
            Zeichen = wert
        End If
    Next i
    warum du ein zahl1 = zahl1 & zeichen machst versteh ich nicht ganz.
    du willst ja wirklich des haben, und nicht nur anhängen...
    >> die icq-schreiberlinge bitte dies hier beachten



    1679 entdeckte Gottfried Wilhelm Leibniz das Binärsystem, bei einem Gespräch mit seiner Mutter: "Ja..., Nein..., Nein..., Nein..., Ja..., Ja..., Nein..."

  6. #6
    Unregistriert
    Gast

    Standard AW: VBA Zahlen aus String seperat abspeichern

    Oh klasse, funktioniert schon prima, vielen Dank!

    Jetzt muss es noch ein wenig angepasst werden:
    Nutzer können z.B. "3-4" eintragen, aber auch "<=160" usw.
    Code:
    For i = 1 To Len(Bereich)
        Wert = Mid(Bereich, i, 1)
        If IsNumeric(Wert) Then
            If Cut = 0 And Zahl1 = "" Then: Zahl1 = Wert
            If Cut = 1 And Zahl2 = "" Then: Zahl2 = Wert
        Else
            Zeichen = Wert
            Cut = 1
        End If
    Next i
    Ich hab den Cut reingetan, denn bei mir gab es das Problem, da Zahl1 = Zahl2 herauskam.

    Das Funktioniert nun leider nicht, wenn man "<160" eingibt!
    Bei Eingabe von "<160" kommt nur Zahl2 = 1 raus. Zahl1, Zeichen bleiben leer

  7. #7
    Unregistriert
    Gast

    Standard AW: VBA Zahlen aus String seperat abspeichern

    Code:
    For i = 1 To Len(Bereich)
        Wert = Mid(Bereich, i, 1)
        If IsNumeric(Wert) Then
            If Cut = 0 Then: Zahl1 = Zahl1 & Wert
            If Cut = 1 Then: Zahl2 = Zahl2 & Wert
        Else
            Zeichen = Zeichen & Wert
            Cut = 1
        End If
    Next i
    Also so funktioniert es.
    Zahl1 = Zahl1 & Wert hab ich gemacht, da die Zahlen ja mehrstellig sein können .

  8. #8
    Forum Guru Avatar von driver
    Registriert seit
    10.04.2006
    Alter
    34
    Beiträge
    20.729
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: VBA Zahlen aus String seperat abspeichern

    ok, stimmt.. da hast recht... hab ich grad nicht mitgedacht
    >> die icq-schreiberlinge bitte dies hier beachten



    1679 entdeckte Gottfried Wilhelm Leibniz das Binärsystem, bei einem Gespräch mit seiner Mutter: "Ja..., Nein..., Nein..., Nein..., Ja..., Ja..., Nein..."

Ähnliche Themen

  1. Java - String in String-Array finden
    Von bitterlemoncola im Forum Forum für alle anderen Programmiersprachen
    Antworten: 1
    Letzter Beitrag: 27.03.2009, 18:20
  2. Notepad++ abspeichern?
    Von Martin279 im Forum HTML & CSS Forum
    Antworten: 6
    Letzter Beitrag: 23.04.2007, 08:22
  3. variable abspeichern
    Von kiffwunder im Forum PHP Forum - Apache - CGI - Perl - JavaScript und Co.
    Antworten: 4
    Letzter Beitrag: 30.11.2006, 17:02
  4. Browser Videos abspeichern?
    Von Html-Neuling im Forum Computer - Internet Forum
    Antworten: 6
    Letzter Beitrag: 17.08.2006, 18:31
  5. gif abspeichern
    Von Tina im Forum HTML & CSS Forum
    Antworten: 2
    Letzter Beitrag: 11.02.2004, 18:02

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •