Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen überprüfen
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
28.04.2019 20:40:26 Werner
NotSolved
04.05.2019 12:57:06 nalic
NotSolved

Ansicht des Beitrags:
Von:
nalic
Datum:
28.04.2019 10:39:41
Views:
1212
Rating: Antwort:
 Nein
Thema:
Zellen überprüfen

Hallo,

ich bin neu hier und wenig bis keine Vba-Kenntnisse. Ich hoffe auf eure Hilfe.
Ich habe folgendes problem:
Ich habe ein Arbeitsblatt mit zwei Tabellenblättern.
1.Tabellenblatt "Aufgaben"
2.Tabellenblatt "erledigte Aufgaben"
Tabellenblatt "Aufgaben" hat einen Bereich von B6 bis J40, also jede Zeile 8 Zellen.
 In jeder Zeile steht eine  zu erledigende Aufgabe. Wenn eine Aufgabe erledigt ist, soll diese Zeile ausgeschnitten und ins Tabellenblatt "erledigte Aufgaben" eingefügt werden. Voraussetzung dafür soll aber sein, dass alle Zellen aus den Spalten B,C,D , H und I in der Zeile der gewählten Zelle ausgefüllt sein müssen. Wenn dies nicht zutrifft, soll die Meldung "Bitte vollständig ausfüllen" erscheinen. Ich habe folgendes hinbekommen.
Danke für die Hilfe im Voraus.

Sub Ausschneiden_Schadwagen()
    If IsEmpty(ActiveCell.Value) = True Then
    MsgBox ("Biette eine ausgefüllte Zelle wählen")
    Exit Sub
    End If
    For Each Sheet In ActiveWorkbook.Worksheets
    Next Sheet
    If MsgBox("Willst du die Daten wirklich ins Archiv verschieben?", vbYesNo, "Tages-Sonderaufgaben") = vbYes Then
    Application.ScreenUpdating = False
    For Each Sheet In ActiveWorkbook.Worksheets
    Sheet.Unprotect Password:="k28801"
    Next Sheet
    ActiveCell.EntireRow.Cut
    Sheets("erledigte Schadwagen_Frist").Rows("6:6").Insert Shift:=xlUp
    ActiveCell.EntireRow.Delete
    Rows("40").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B6").Select
    For Each Sheet In ActiveWorkbook.Worksheets
    Sheet.Protect Password:="k28801"
    Next Sheet
    End If
    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
Rot Zellen überprüfen
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
28.04.2019 20:40:26 Werner
NotSolved
04.05.2019 12:57:06 nalic
NotSolved