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:
574
Rating: Antwort:
  Ja
Thema:
Zellen überprüfen

Hallo,

von mir so:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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