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
Rot Zellen überprüfen
 28.04.2019 16:29:14 Gast27713
NotSolved
28.04.2019 20:40:26 Werner
NotSolved
04.05.2019 12:57:06 nalic
NotSolved

Ansicht des Beitrags:
Von:
Gast27713		 Datum:
28.04.2019 16:29:14		 Views:
476		 Rating:
     
Antwort:
  Ja
Thema:
Zellen überprüfen		 
Sub Tast()
Const C_ur As String = "B4:J40"
Dim ur As Range, ac As Range, ar As Range, ae As Range

   'Cmd Button in aktivem Arbeitsblatt
   Set ur = Range(C_ur)
   'aktive Zelle und Vollständigkeit
   Set ac = ActiveCell
   For Each ar In ur.Rows
      If Not Intersect(ac, ar) Is Nothing Then
         With ar
            On Error Resume Next
            'aktive Zelle und zu prüfende Zellen
            Set ae = Union(ac, .Cells(1).Resize(, 4), .Cells(7).Resize(, 2)).SpecialCells(xlCellTypeBlanks)
            If Err.Number Then
                If MsgBox("Willst du die Zeile wirklich ins Archiv löschen?", vbYesNo, "Tages-Sonderaufgaben ") <> vbYes Then Exit Sub
                'ab hier den Passwortklamauk und das Rumgeschubse
                '
                '
                Call MsgBox("ausgewählte Zeile verschoben" & vbLf & _
                  "und Bereich aufgefüllt", vbExclamation, "Fertig")
            Else
               Call MsgBox("Fehler" & vbLf & _
                  "Bitte eine ausgefüllte Zelle wählen" & vbLf & _
                  "oder leere Pflichtfelder gefunden", vbExclamation, "Abbruch")
            End If
            On Error GoTo 0
         End With
         Exit For
      End If
   Next ar
   
End Sub

 

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
Rot Zellen überprüfen
 28.04.2019 16:29:14 Gast27713
NotSolved
28.04.2019 20:40:26 Werner
NotSolved
04.05.2019 12:57:06 nalic
NotSolved