Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Zellen überprüfen |
28.04.2019 10:39:41 |
nalic |
|
|
|
28.04.2019 11:36:58 |
Werner |
|
|
|
28.04.2019 13:00:58 |
nalic |
|
|
|
28.04.2019 13:11:20 |
nalic |
|
|
|
28.04.2019 16:29:14 |
Gast27713 |
|
|
|
28.04.2019 20:40:26 |
Werner |
|
|
|
04.05.2019 12:57:06 |
nalic |
|
|
Von:
nalic |
Datum:
28.04.2019 10:39:41 |
Views:
1212 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Zellen überprüfen |
28.04.2019 10:39:41 |
nalic |
|
|
|
28.04.2019 11:36:58 |
Werner |
|
|
|
28.04.2019 13:00:58 |
nalic |
|
|
|
28.04.2019 13:11:20 |
nalic |
|
|
|
28.04.2019 16:29:14 |
Gast27713 |
|
|
|
28.04.2019 20:40:26 |
Werner |
|
|
|
04.05.2019 12:57:06 |
nalic |
|
|