Danke für die Hilfe !
Dein Tipp hat mich um einiges Weitergebracht
Danke für die Hilfe !
Dein Tipp hat mich um einiges Weitergebracht
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 ?