Was kann man mit Programmstrukturen wie einer MsgBox, Inputbox, If Then Bedingung und einer For Next Schleife in einem VBA Programm machen?

Hallo,

ich muss in einer Aufgabe in eigenen Worten erklären was man mit diesen Programmstrukturen machen kann also wofür die halt dienen aber ohne ein konkretes Beispiel. Ich weiß es zwar so ungefähr aber kann es nicht so genau in eigenen Worten erklären.
Ich wäre für eine Antwort sehr dankbar :)

1 Antwort

regex9

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

20.11.2021, 20:25

MsgBox: Zeigt einen Dialog mit einer Nachricht.
InputBox: Zeigt einen Dialog mit einem Eingabefeld. Nach Bestätigung liefert sie die Eingabe zurück.
If Then: Führt einen Code-Block aus, sofern eine Bedingung erfüllt wird.
For Next: Kann ihren Code-Block n-Mal wiederholen.

Nutze für weitere Fragen im ersten Schritt die Referenz.

Ähnliche Fragen

Excel VBA IsNumeric?

Hallo!

Ich arbeite gerade mit VBA und habe folgendes Problem:

Ich habe ein Eingabefeld und möchte, dass das Programm nur weiterläuft, wenn drei Bedingungen erfüllt sind. Es soll sich um eine Zahl handeln, sie soll ganzzahlig sein und größer gleich Null.

Ich habe folgendes zusammengebastelt:

Dim Zahl As Variant

start:

Zahl = InputBox("Zahl eingeben")

If Anzahl <= 0 Or IsNumeric(Zahl) = False Or Int(Anzahl) = False Then

MsgBox ("Zahl muss ganzzahlig und größer als 0 sein. Bitte erneut eingeben.")

GoTo start

Mit der ersten Bedingung klappt noch alles so wie es soll. Wenn ich einen Buchstaben eingebe, kommt eine Fehlermeldung und wenn ich keine ganzzahlige Zahl eingebe, läuft es einfach weiter.

Ich habe keine Erfahrung mit VBA und hoffe, dass mir jemand meinen Fehler erklären kann.

Vielen Dank schon Mal!

...zur Frage

VBA Inputbox Werte verrechnen?

Moin Leute,

anbei eine kurze Aufgabenstellung. Ich konnte den ersten Teil bereits erfolgreich lösen, leider scheitere ich aber daran den Inputwert mit der zugehörigen prozentzahl zu multiplizieren.

Folgende Aufgabenstellung:

Schreiben Sie eine Prozedur zur Ermittlung des Zinssatzes für eine Geldanlage. Liegt der anfänglich angelegte Geldbetrag über 10.000,00 €, beträgt der Zinssatz 3 %, liegt er über 20.000,00 €, beläuft sich der Zinssatz auf 3,5 % ansonsten liegt er bei 2,75 %. Verwenden Sie eine If-Else-Anweisung. Der Eingangsbetrag ist über eine Inputbox zu erhalten. Der gültige Zinssatz und das Resultat ist über eine MsgBox anzuzeigen.

Mein Fortschritt:

Sub test2()

Dim Zahl As Double

Zahl = InputBox("Gebe Sie eine Zahl ein")

If Zahl > 20000 Then

MsgBox (("3,5%"))

ElseIf Zahl > 10000 Then

MsgBox (("3%"))

ElseIf Zahl <= 10000 Then

MsgBox (("2,75%"))

End If

End Sub

...zur Frage

EXCEL VBA Frage?

Hallo,

ich habe ein problem mit Excel VBA, unzwar würde ich gerne die Abfrage der Leeren zellen erweitern um ein paar andere zeilen... leider habe ich immer irgendwie ein syntax problem. Kann mir jemand helfen

For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7") __HIER SOLL MEHR ABGEFRAGT WERDEN

If Zellen_auf_Inhalt_prüfen.Value = "" Then

MsgBox "Bitte alle Zellen ausfüllen."

GoTo MacroEnde

End If

Next Zellen_auf_Inhalt_prüfen

...zur Frage

Schleife VBA Leerzeile einfügen wenn Bedingung erfüllt, was mache ich falsch?

Hi,

ich möchte ein makro schreiben und die schleife funktioniert bei mir nicht. Ich möchte, wenn in Spalte I das Wort "nein" steht, das er in dieser Zeile eine Leerzeile einfügt.

For i = 1 To 65536
         If Cells(i, 9) = "nein" Then
         Rows.Select
    Selection.Insert Shift:=xlDown
     End If
    Next i

Was mache ich falsch?

Lieben Dank!!!

...zur Frage

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zur Frage

Wie kann man in Excel-VBA mehrere If-bedingungen, die die selbse Reaktion auslösen sollen, zusammenfassen?

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

...zur Frage

VBS Variable in eine .txt Datei schreiben?

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

...zur Frage

Prüfen ob ein Objekt in der Combobox ist (VBA)?

Also eine Combobox bei mir wird unter gewissen bedingungen mit unterschiedlichen Items gefüllt.

Nun soll eine MSGbox kommen wenn ein gewisses Item Vorhanden ist, meine Ansätze waren ganz unterschiedlich aber alle ohne Ergebnis

If combobox9.object(range("J2") then ...

Wichtig ist das es in der Combobox nur vorhanden sein soll und nicht unbedingt ausgewählt

Vielen Dank für die Hilfe

...zur Frage

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

...zur Frage

VBA if range then else?

Wenn ich den Entfernen Button aklicke kommt die MsgBox "Da steht nicht".
Die soll aber erst kommen wenn da wirklich nichts steht.
Kann mir jemand helfen?

...zur Frage

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zur Frage

Quiz in VBA programmieren?

Wir müssen im Unterricht ein Multiple Choice Quiz erstellen, mit verschiedenen Auswahlmöglichkeiten. Wenn die Antwort richtig ist, soll "Richtige Antwort" angezeigt werden und zur nächsten Frage gegangen werden, wenn nicht dann "Antwort falsch" und auch weiter. Am Ende soll noch einmal angezeigt werden, wie viele Fragen man richtig beantwortet hat. Wir haben auch fast alles fertig, nur unser Problem ist, dass wenn die Antwort falsch ist, dann geht es nicht zur nächsten, sondern man kommt nur weiter, wenn die Antwort richtig ist und am Ende fehlt uns das mit der richtigen Anzahl an Fragen. Wie könnte man das hier umprogrammieren, sodass unser Programm so funktioniert, wie es soll?

Private Sub CommandButton1_Click()

If OptionButton1 = True And Sheets(1).Cells(i, 5) = 1 Then

MsgBox "Richtige Antwort"

Unload UserForm2

ElseIf OptionButton2 = True And Sheets(1).Cells(i, 5) = 2 Then

MsgBox "Richtige Antwort"

Unload UserForm2

ElseIf OptionButton3 = True And Sheets(1).Cells(i, 5) = 3 Then

MsgBox "Richtige Antwort"

Unload UserForm2

Else

MsgBox "Antwort Falsch"

End If

End Sub

...zur Frage

VBA IF THEN Formel mit 2 Bedingungen?

Hallo,

ich würde gerne bei einem Programm eine IF THEN Formel Aufstellen mit 2 Bedingungen.

Die Formel sieht aktuell so aus:

IFTHEN(Schriftverkehr['GESRAB']>0, 'Endbetrag ' + '-' +FLOATTOSTRD(Schriftverkehr['GESRAB'],1) + '%' + ' aus' , ' ')

Die erste Bedingung ist wie hier zu sehen: x>0

Die zweite Bedingung soll nun sein: x<49

Also das gewünschte soll nur geschrieben werden wenn X in der Range von 0,1 bis 48,9 liegt. Bei 0 soll das Feld leer sein und bei 49 auch.

Wie würde die Fomel dann aussehen?

...zur Frage

VBA for-schleife: Leere Zeilen überspringen?

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen