AW: Eingabecheck per Makro
16.07.2007 11:31:21
Salim
Hallo Franz,
besten Dank für das Makro, funktioniert bestens!
Ich habe versucht die Ausführung eines anderen Makros daran zu knüpfen. D.h. ich hätte es gerne so dass die Ausführung des zweiten Makros nur dann erfolgt, wenn die Eingaben vollständig sind. Wenn nicht, dann eben nicht.
Ich habe es eingefügt, liegt wahrscheinlich an einer Kleinnichkeit. Vielen Dank für die Unterstützung.
Private Sub CommandButton1_Click()
Dim rngEingabe As Range, Ausgefuellt As Boolean, Zeile&, Spalte%
Set rngEingabe = Me.Range("D33:P133") 'Tabellenbereich mit Eingaben
For Zeile = rngEingabe.Row To rngEingabe.Row + rngEingabe.Rows.Count - 1
Ausgefuellt = True
'Prüfen ob alle Zellen in Zeile leer sind
If Application.WorksheetFunction.CountBlank(Me.Range(Me.Cells(Zeile, 4), _
Me.Cells(Zeile, 16))) = 13 Then
Else
For Spalte = 4 To 16
Select Case Spalte
Case 4 To 8, 14, 15 'zu prüfende Spalten
If IsEmpty(Me.Cells(Zeile, Spalte)) Then
MsgBox "In Zelle " & Chr$(Spalte + 64) & Zeile & " fehlt Eingabewert!"
Me.Cells(Zeile, Spalte).Select
Ausgefuellt = False
Exit For
End If
Case Else
'do nothing
End Select
Next
If Ausgefuellt = False Then Exit For
End If
Next Zeile
ActiveWorkbook.Unprotect
ActiveSheet.Visible = False
ActiveWorkbook.Protect Structure:=True, Windows:=False
Sheets("Eingabeblätter").Select
Sheets("Eingabeblätter").Range("A1").Select
End Sub