Thema Datum  Von Nutzer Rating
Antwort
28.04.2019 10:39:41 nalic
****
Solved
28.04.2019 11:36:58 Werner
NotSolved
28.04.2019 13:00:58 nalic
NotSolved
28.04.2019 13:11:20 nalic
NotSolved
28.04.2019 16:29:14 Gast27713
NotSolved
Blau Zellen überprüfen
 28.04.2019 20:40:26 Werner
NotSolved
04.05.2019 12:57:06 nalic
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
28.04.2019 20:40:26		 Views:
460		 Rating:
     
Antwort:
  Ja
Thema:
Zellen überprüfen

Hallo,

von mir so:

Public Sub aaa()
Dim boVollständig As Boolean

Application.ScreenUpdating = False

With Worksheets("Aufgaben")
    If MsgBox("Willst du die Daten wirklich ins Archiv verschieben?", vbYesNo, "Tages-Sonderaufgaben") = vbYes Then
        If WorksheetFunction.CountBlank(.Cells(ActiveCell.Row, 2).Resize(, 4)) = 0 Then
            If WorksheetFunction.CountBlank(.Cells(ActiveCell.Row, 8).Resize(, 2)) = 0 Then
                boVollständig = True
                .Rows(ActiveCell.Row).Copy
                Worksheets("erledigte Aufgaben").Rows(6).Insert Shift:=xlShiftUp
                .Rows(ActiveCell.Row).Delete Shift:=xlShiftUp
                .Rows(39).Copy
                .Rows(40).Insert
            End If
        End If
    End If
End With
           
If Not boVollständig Then
    MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt."
End If

Application.CutCopyMode = False
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.04.2019 10:39:41 nalic
****
Solved
28.04.2019 11:36:58 Werner
NotSolved
28.04.2019 13:00:58 nalic
NotSolved
28.04.2019 13:11:20 nalic
NotSolved
28.04.2019 16:29:14 Gast27713
NotSolved
Blau Zellen überprüfen
 28.04.2019 20:40:26 Werner
NotSolved
04.05.2019 12:57:06 nalic
NotSolved