Office: Pflichtfeld

Morgen Leutz!

Neuer Tag, neues Problem! Ich hab ein Makro von schatzi bekommen, dass mir meine Daten in den bestimmten Feldern bei Klick in ein anderes Tabellenblatt in die nächste leere Zelle einfügt. Funzt auch sehr gut ( danke schatzi ). Nun brauche ich eine Möglichkeit, dass mir Excel bei bestimmten Feldern (=Pflichtfelder), wenn diese nicht ausgefüllt sind, eine Fehlermeldung bringt und die Daten nicht in das nächste Tabellenblatt überträgt.

Das ist das Makro, welches die DAten in die nächste Zeile im anderen Tabellenblatt einfügt:

Private Sub Daten_exportieren_Click()
Dim Zeile As Integer

With Sheets("Auftragstemplate")
Zeile = .Range("B65536").End(xlUp).Row + 1
.Cells(Zeile, 2) = Range("M4")
.Cells(Zeile, 3) = Range("I6")
.Cells(Zeile, 4) = Range("D6")
.Cells(Zeile, 5) = Range("D10")

End With
End Sub

Wie mache ich das am (un)geschicktesten?

Vieln Dank und Grüsse
hai

 

Hallo!

Teste mal diese Erweiterung:

Private Sub Daten_exportieren_Click()
Dim Zeile As Integer
If WorksheetFunction.CountBlank(Range("A1"), Range("A2"), Range("A3"))>0 Then Goto Fehler
With Sheets("Auftragstemplate")
Zeile = .Range("B65536").End(xlUp).Row + 1
.Cells(Zeile, 2) = Range("M4")
.Cells(Zeile, 3) = Range("I6")
.Cells(Zeile, 4) = Range("D6")
.Cells(Zeile, 5) = Range("D10")
End With
Exit Sub
Fehler:
MsgBox "Es fehlen noch Daten!"
End Sub

A1, A2 und A3 musst du natürlich durch deine wahren Zellen ersetzen.

 

Sorry, war ungetestet...

Ersetze mal

Code:

If WorksheetFunction.CountBlank(Range("A1"), Range("A2"), Range("A3")) > 0 Then Goto Fehler

durch

Code:

If WorksheetFunction.CountA(Range("A1"), Range("A2"), Range("A3")) < 3 Then Goto Fehler

Je nachdem, wieviele Zellen du angibst, musst du natürlich das "< 3" anpassen.

 

Weltklasse

Danke...

so klappts. Wenn ich dich lange genug nerve, werde ich vielleicht auch mal so gut wie du! ;)

Vielen Dank und Gruss
hai