Beiträge von Wulli

    Hier einen Lösungsvorschlag für die MsgBox

    Als erstes musst du Mitzählen wieviele Rechnungen übertragen worden sind

    Dim i as Integer Zähler1
    Dim i as Integer Zähler2
    Dim n as Integer Anzahl Rechnungen
    Dim Fehlerspeicher as Interger

    Fehlerspeicher = 0
    i = 0
    i1 = 1
    n = wurde bereits gezählt durch den übertrag
    Range("A2").Select Zelle in der die Erste Rechnungsnr. steht anwählen
    while i < n
    while i1 < n
    if ActiveCell.Offset(i, 0).value = ActiveCell.Offset(i1, o).value then
    fehlerspeicher = 1
    i1 = i1 + 1
    else
    i1 = i1 + 1
    End if
    wend
    i = i + 1
    wend
    if Fehlerspeicher = 1 then
    MsgBox (Es wurden Rechnungen mehrfach Aufgeführt)
    Else

    End If

    Hallo

    Habe ein kleines Problem bei VBA ich hoffe das ihr mir weiter helfen könnt!

    Und zwar ich will in einer String Variable einen Text eingeben und zwischen den Test eine Integer Variable einlessen. Hier nur mal ein kleines Beispiel

    Dim text as String
    Dim n as Integer

    n = 10
    text = "Hallo mein Name ist Lisa ich bin 10 Jahre alt"

    so und jetzt will ich für die 10 die Variable n verwenden.

    Und nun meine Frage wie könnte man das Problem lösen ?