MsgBox für mehrere Bedingungen

Hallo Liebe Excel/VBA Experten,
zunächst wollte ich euch kurz Danke sagen. Eure Beiträge bzw. Antworten haben mir bisher super geholfen.
Ich arbeite im Qualitätsmanagement und habe mit Hilfe Euerer Beiträge und dem Makro Rekorder ein Fehlereingabeformular erarbeitet, welches grundsätzlich sehr gut funktioniert.
Allerdings bin ich jetzt irgendwie mit meinem Latein am Ende.
Damit auf jeden Fall die Artikelnummer in C3 eingegeben wird habe ich ganz am Anfang eine MsgBox eingebaut. Ich möchte aber, dass in Zelle H7 (Fehlerbeschreibung) und in Zelle K7 (Sammeln oder nicht) auch auf jeden Fall etwas eingegeben werden muss. Also im Endeffekt 3 MsgBox Abfragen hintereinander. Das bekomme ich, auch mit den Forenbeiträgen, nicht hin.
Evtl. könnt Ihr mir helfen. Hier ist das Makro:

Sub Fehlererfassen()
' Fehlererfassen Makro
If Range("c3").Value = "" Then
MsgBox "Erst Artikel eingeben!!!"
Else
Range("A7:M7").Copy
Windows("Fehlererfassung.xlsm").Activate
ActiveWorkbook.AcceptAllChanges
Sheets("Fehler Erfassung").Select
Range("A2").Select
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
Windows("Fehlereingabe AP1.xlsm").Activate
Sheets("Fehlereingabe").Select
Range("h7").Select
ActiveCell.FormulaR1C1 = "Bitte Fehler auswählen"
Range("i7").Select
Selection.ClearContents
Range("K7").Select
Selection.ClearContents
Range("C3").Select
Selection.ClearContents
End If
End Sub

Obwohl das Makro eigentlich einwandfrei läuft, wäre es außerdem super, wenn Ihr einfach mal drüber schauen könnt und mir evtl. Optimierungsvorschläge machen könntet, bzw. auf potentielle Gefahren hinweisen könntet, da ich, wie gesagt, meine VBA Kenntnisse nur anhand des Rekorders und des Forums im Selbststudium generiert habe.
Herzlichen Dank schon einmal im voraus.
Gruß,
Flo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Range("C3") If .Value = "" Then 'Wenn dieser Wert in Zelle, Application.EnableEvents = False 'dann Blatt sperren .Select 'Zelle bleibt ausgewählt Application.EnableEvents = True 'Blatt freigeben End If End With

'einfügen bei der Tabelle, bei der das Makro laufen soll Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'sorgt dafür, dass die im Code angegebenen Zellen nacheinander gesperrt bleiben, bis diese _ einen anderen 'Zellwert haben, als im Code angegeben! Dim Zelle As Range For Each Zelle In Range("K7, H7, C3") 'Zellen evtl. anpassen! Umgekehrte Reihenfolge! If IsEmpty(Zelle) Then 'Wenn Zelle leer, Application.EnableEvents = False 'dann Blatt "sperren" Zelle.Select 'o. a. Zelle bleibt ausgewählt, bis Wert anders Application.EnableEvents = True 'erst dann Bearbeitung möglich! End If Next Zelle End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread