Messagebox funtlioniert nicht
01.06.2004 12:38:46
Andi
meine Messagebox funktioniert nicht!Warum weiß ich nicht? Ich möchte einzelne Datenzeilen in ein neues Tabellenblatt kopieren. Dazu soll man in einer Spalte ein X setzen, wenn diese kopiert werden soll. Steht überhaupt kein X und der Commandbutton wird benutzt, dann soll eine Messagebox darauf hinweisen, dass kein X gesetzt wurde. Ansonsten normal ausschneiden und kopieren! Ich hab das mal so probiert: Jetzt funktioniert es zwar, aber selbst wenn ich in ein X setze, dann kommt erst die MEssagebox und dann erst wird kopiert! Versteh ich einfach nicht!?!?!?!
Bin für jede Hilfe dankbar!
Private Sub CommandButton3_Click()
Dim g As Long, s As Long
Dim Treffer As Boolean
Treffer = False
If Treffer = False Then
'oder IF-Bedingung so: If-Application.CountA([j4:j103]) = 0 Then
iMsgresz = MsgBox("Wenn Sie ToDo´s in die Ablage verschieben möchten, dann markieren Sie die einzelnen ToDo-Zeilen mit einem X in der Spalte Ablage!!!", vbExclamation, "Fertig")
End If
For g = 4 To 103
If Sheets("UG").Cells(g, 10).Value = "X" Or Sheets("UG").Cells(g, 10).Value = "x" Then
Do
s = s + 1
Loop Until IsEmpty(Sheets("Erledigte Aufgaben").Cells(s, 7))
Rows(g).Copy Destination:=Sheets("Erledigte Aufgaben").Cells(s, 1)
Rows(g).ClearContents
End If
Next g
Sheets("Erledigte Aufgaben").Select
Sheets("Erledigte Aufgaben").Cells(65536, 1).End(xlUp).Offset(1, 0).Select
Sheets("UG").Select
Sheets("UG").Cells(65536, 1).End(xlUp).Offset(1, 0).Select