kann mir jemand erklären, wie ich in VBA zwei Anweisungen ausführen lassen kann!
z.B.: If Artikel = " " then Exit Sub ???and??? Tabelle(...).cells(...) = 0
Grüße
Hakan
kann mir jemand erklären, wie ich in VBA zwei Anweisungen ausführen lassen kann!
z.B.: If Artikel = " " then Exit Sub ???and??? Tabelle(...).cells(...) = 0
Grüße
Hakan
so geht's:
If Artikel = "" Then
Tabelle(...).cells(...) = 0
Exit Sub
End if
Gruß, Yvonne
gruß
andreas e
Beispiel
Dim Merkvariable as Integer
Cells(1, 1).select
If activecell.value = "XYZ" then
Cells(1 ,2).select
Merkvariable = Activecell.value
Merkvariable = Merkvariable + 4
Cells(1, 3).select
Activecell.value = Merkvariable
end if
Hier tue ich mit einer If Anweisung sogar 3 Dinge ...
1) Prüfen ob A1 XYZ ist
2) Wenn ja den Wert aus B1 eine Variable eintragen und + 4 Addieren
3) Das in Zelle C1 eintragen
Meinst du das so oder verstehe ich dich nur falsch :))
ihr habt mich falsch verstanden oder ich habe es falsch erklärt.
Also wenn Artikel = " " dann soll, dass Programm beendet werden und wenn das Programm beendet wird, dann soll Range(A1)= 0 werden.
das müsste damit aber doch funktionieren, oder?
If Artikel = " " Then
Tabelle(...).cells(...) = 0
Exit Sub
End if
Du setzt den Wert in der Zelle erst auf 0 und verlässt dann das Makro. Und beides geschieht nur, wenn Artikel = " " ist.
Gruß, Yvonne
das hat wieder nicht geklappt, aber kannst Dir mal den Code anschauen?! Aber aufjedenfall, Danke schön !
Sub NameEintragen()
MsgBox "Es müssen alle Eingaben getätigt werden"
'Meldung
Name = InputBox("Geben Sie bitte Ihren Name ein", "Bearbeiter")
If Name = "" Then Exit Sub
Tabelle1.Cells(5, 5) = Name
Artikel = InputBox("Geben Sie bitte die Artikel bezeichnung ein", _
"Artikelbezeichnung", "Benutzer")
If Artikel = "" Then Tabelle1.Cells(5,5)= 0 Exit Sub end if
Tabelle1.Cells(6, 5) = Artikel
End Sub
wenn du nach If mehrere Anweisungen ausführen lassen möchtest, musst du nach Then und nach jeder Anweisung Enter eingeben (und mit End If abschließen).
So sollte es funktionieren:
Sub NameEintragen()
MsgBox "Es müssen alle Eingaben getätigt werden"
'Meldung
Name = InputBox("Geben Sie bitte Ihren Name ein", "Bearbeiter")
If Name = "" Then Exit Sub
Tabelle1.Cells(5, 5) = Name
Artikel = InputBox("Geben Sie bitte die Artikel bezeichnung ein", _
"Artikelbezeichnung", "Benutzer")
If Artikel = "" Then
Tabelle1.Cells(5, 5) = 0
Exit Sub
End If
Tabelle1.Cells(6, 5) = Artikel
End Sub
Gruß, Yvonne
es tut jetzt wie es sollte!
Gruß Hakan