Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Wochenende - Inhalt löschen, da Inhalt = 0

Wenn Wochenende - Inhalt löschen, da Inhalt = 0
22.06.2004 09:48:42
Andy
Hallo,
ich habe eine Datei mit Kalender, wobei der fortlaufend ist von
Heute - 90 + 457 Tage. Dort werden Dienste eingetragen. Damit
niemand was falsches einträgt und dann nicht löschen kann würde
ich gern einbauen, wenn im Bereich C2 - Ende an Wochenenden ein
Eintrag ist, dann lösche ihn. Das ist zumindest meine Idee.
Gruß
Andy

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Wochenende - Inhalt löschen, da Inhalt = 0
22.06.2004 21:24:21
Peter
Hallo Andy,
das nachstehende Makro sollte dein Problem lösen.
Ich gehe davon aus, dass dein Kalender ein Datum in Spalte A enthält.


Sub Wochenenden_loeschen()
Dim iIndx  As Integer
For iIndx = 1 To Range("A65536").End(xlUp).Row
   If Weekday(Range("A" & iIndx).Value) = 1 Or _
      Weekday(Range("A" & iIndx).Value) = 7 Then
      Range("C" & iIndx).Value = ""
   End If
Next iIndx
Gruß, Peter
Anzeige
Inhalt löschen, wenn im Kalender Wochenende
23.06.2004 12:01:31
Andy
Hallo Peter,
mein Kalender sieht so aus:
Userbild
Leider bleibt dein Code bei
If Weekday(Range("A" & iIndx).Value) = 1 Or _
Weekday(Range("A" & iIndx).Value) = 7 Then
ohne Meldung stehen. Hab ich beim Erzählen irgend etwas
falsch erklärt? Schau bitte noch einmal in meine Tabelle,
wie gesagt, sie rückt jeden Tag weiter, da sie von Heute
ausgeht. Wie bekomme ich es raus, dass alle Eintragungen
an Wochenenden im Bereich C2 bis Ende gelöscht werden.
Gruß Andy
Anzeige
AW: Inhalt löschen, wenn im Kalender Wochenende
23.06.2004 20:06:54
Andy
Hallo Peter,
Danke für die Spalte C: geht das jetzt Prima, ich meinte aber, wie im
Beispiel zu sehen, alles an C2, das Kann also auch Y365 sein. Vielleicht
habe ich mich falsch ausgedrückt, dann Sorry. Wenn dein Beispiel noch
von C2 bis XLEnd funktioniert, wäre es ganhz toll.
Gruß
Andy
AW: Inhalt löschen, wenn im Kalender Wochenende
23.06.2004 20:39:34
Peter
Hallo Andy,
mein Beispiel prüft die gesamte Spalte A, so weit diese belegt ist und ändert daraufhin die Sonnabende und Sonntage in Spalte C von 1 bis Ende.
Habe ich dich irgendwo falsch verstanden?
Gruß, Peter
Anzeige
AW: Inhalt löschen, wenn im Kalender Wochenende
23.06.2004 20:44:32
Andy
Hallo Peter,
du hattest es schon richtig verstanden und es funktioniert
auch in Spalte C2 bis Ende, aber in Spalte D2 bis IX457 funktioniert
es leider nicht und das habe ich nicht richtig erklärt gehabt
in meiner Bitte um Hilfe. Wie du oben im Beispiel siehst, gibt
es auch in den anderen Spalten Einträge, wobei man nicht weiß
wieviel. Also muss er kontrollieren von C2 bis IX457 oder Ende
und darin die Einträge in den Wochenenden löschen.
Gruß
Andy
AW: Inhalt löschen, wenn im Kalender Wochenende
23.06.2004 21:49:50
Peter
Hallo Andy,
so geht es über alle Spalten ab C


'
'   in einem Kalender sollen die evtl. vorhandenen Einträge
'   am Wochenende in der Spalte C gelöscht werden.
'
Sub Wochenenden_loeschen()
Dim iIndxA  As Long
Dim iIndxI  As Integer
Application.ScreenUpdating = False                  ' kein Bildschirm Update
For iIndxA = 1 To Range("A65536").End(xlUp).Row     ' von 1 bis Ende
   If Weekday(Range("A" & iIndxA).Value) = 1 Or _
      Weekday(Range("A" & iIndxA).Value) = 7 Then   ' Sonnabend/Sonntag ?
      For iIndxI = 3 To 256
         Cells(iIndxA, iIndxI).Value = ""           ' auf leer löschen
         'Cells(iIndxA, iIndxI).Value = 0            ' auf Null löschen
      Next iIndxI
   End If
Next iIndxA                                         ' nächster Eintrag
Application.ScreenUpdating = True                   ' Bildschirm Update
End Sub
Gruß Peter
Anzeige
Danke Peter klappt super, hab alles getestet!
23.06.2004 21:58:52
Andy
Hallo Peter,
vielen Dank für deine Hilfe, hab alles getestet und
es klappt super.
Gruß
Andy
Sorry Peter - doch noch ne Frage Wochende löschen
23.06.2004 22:55:25
Andy
Hallo Peter,
danke noch mal für deine Hilfe! In meiner Originaldatei klappt das
zwar sehr gut, da er aber bis ganz zum Ende geht und löschen will,
dauert das auch ziemlich lange. Was muss ich machen, wenn er nur
bis Zeile 457 durchsuchen soll? Die Spaltenanzahl weiß ich meist
nicht, aber die Zeilen hören nach 457 normaler Weise auf. Wie komme
ich am besten, wenn ich das ändern will?
Würde mich freuen, wenn du noch einmal helfen könntest.
Gruß
Andy
Anzeige
AW: Sorry Peter - doch noch ne Frage Wochende löschen
24.06.2004 21:13:49
Peter
Hallo Andy,
die Zeilenanzahl wird automatisch durch die Anweisung Range("A65536").End(xlup).Row immer auf die vorhandene Anzahl belegter Zeilen (in Spalte A) festgelegt. Da brauchst du nichts zu ändern, das bringt gar nichts.
Da das Makro alle Wochenenden (Sonnabende und Sonntage) von Spalte 3 bis 256 löscht, dauert das ein wenig, daran kann man wenig ändern.
Gruß Peter
AW: Nachtrag
24.06.2004 22:13:59
Peter
Hallo Andy,
was ich dir zur Beschleunigung anbieten kann ist folgendes:
Wenn nicht alle Spalten bis IV (256) belegt sind, wird das in dem nachfolgenden Makro berücksichtigt.
Dadurch wird die Verarbeitung natürlich wesentlich schneller (kürzer).


'
'   in einem Kalender sollen die evtl. vorhandenen (fehlerhaften) Einträge
'   am Wochenende in der Spalte C - letzte belegte Spalte gelöscht werden.
'
'   vorab wird die maximal belegte Spalte ermittelt
'
Sub Wochenenden_loeschen_A()
Dim rUsdRg  As Range                                ' verwendeter (belegter) Bereich
Dim lAnzZe  As Long                                 ' Anzahl Zellen im Used Range
Dim lLeSpa  As Long                                 ' letzte belegte Spalte
Dim lIndxZ  As Long                                 ' For/Next Index Zeile
Dim iIndxS  As Integer                              ' For/Next Index Spalte
Application.ScreenUpdating = False                  ' kein Bildschirm Update
Set rUsdRg = ActiveSheet.UsedRange                  ' Used Range feststellen
lAnzZe = rUsdRg.Count                               ' Anzahl Zellen im Used Range
lLeSpa = rUsdRg(lAnzZe).Column                      ' Letzte Spalte festhalten
For lIndxZ = 1 To Range("A65536").End(xlUp).Row     ' von Zeile 1 bis Ende
   If Weekday(Range("A" & lIndxZ).Value) = 1 Or _
      Weekday(Range("A" & lIndxZ).Value) = 7 Then   ' Sonnabend/Sonntag ?
      For iIndxS = 3 To lLeSpa                      ' von Spalte 3 bis letzte belegte
         Cells(lIndxZ, iIndxS).Value = ""           ' auf leer löschen
         'Cells(lIndxZ, iIndxS).Value = 0            ' auf Null löschen
      Next iIndxS                                   ' nächste Spalte
   End If
Next lIndxZ                                         ' nächste Zeile
Application.ScreenUpdating = True                   ' Bildschirm Update zulassen
End Sub
Gruß, Peter
Anzeige
Bei Wochenende - Inhalt löschen System lahm?
26.06.2004 04:20:56
Andy
Hallo,
die Idee von Peter ist zwar nicht schlecht, verlangsamt aber
enorm den Arbeitsablauf, da die automatische Kontrolle, ob
Wochenende ist oder nicht gleich nach jedem Eintrag erfolgt
und wenn das sich dann ewig hinzieht, ist das für den User
nicht schön.
Hat vielleicht noch jemand eine andere Idee? Wie kann man das
noch kontrollieren lassen, ohne das man gleich "Kaffee trinken
gehen kann"?
Gruß Andy
AW: Bei Wochenende - Inhalt löschen System lahm?
26.06.2004 15:47:40
Peter
Hallo Andy,
du hast nicht geschrieben, dass du die Prüfung nach jeder Eingabe machen willst!
Ich war davon ausgegangen, dass die Prüfung einmal bei Abschluss aller Eingaben gemacht wird.
Aber wie auch immer....
Füge den nachfolgenden Code in das Tabellenblatt deines Kalenders ein, dann bist du ganz schnell.
Gruß Peter


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
Dim T_Adr       As String                               ' Zell-Adresse
Dim iPos        As Integer                              ' Position für Instr
Dim A_Z_Zeile   As Integer                              ' Zeile
Dim A_Z_Spalte  As String                               ' Spalte
   If ActiveCell.Column < 3 Then Exit Sub               ' Spalte < 3 - raus
   T_Adr = Target.Address                               ' Adresse holen
   T_Adr = Mid(T_Adr, 2, Len(T_Adr))                    ' Adresse 1 shiften
   iPos = InStr(T_Adr, "$")                             ' Position $ suchen
   A_Z_Spalte = Left(T_Adr, (iPos - 1))                 ' Spalte entnehmen
   A_Z_Zeile = Mid(T_Adr, iPos + 1, Len(T_Adr) - iPos)  ' Zeile  entnehmen
   If Weekday(Cells(A_Z_Zeile, 1).Value) = 1 Or _
      Weekday(Cells(A_Z_Zeile, 1).Value) = 7 Then       ' Sonnabend/Sonntag ?
      If Range(A_Z_Spalte & A_Z_Zeile).Value <> "" Then ' Zelle nicht leer ?
         Range(A_Z_Spalte & A_Z_Zeile).ClearContents    ' Zelle löschen
         MsgBox "an Wochenend-Tagen bitte keine Eingaben vornehmen", 64, _
          "nicht erwünschte Eingabe"
      End If
   End If
End Sub
Anzeige
Danke-Neue Wochenende Inhalt löschen bleibt stehen
28.06.2004 06:52:35
Andy
Hallo Peter,
Danke für deine Hilfe leider bleibt er stehen bei:
If Weekday(Cells(A_Z_Zeile, 1).Value) = 1 Or _
Weekday(Cells(A_Z_Zeile, 1).Value) = 7 Then ' Sonnabend/Sonntag ?
und bringt folgenden Eintrag bei Local:
Userbild
Woran kann das liegen hast du eine Idee? Was hat er für ein Problem mit den
versteckten Zellen?
Gruß
Andy

312 Forumthreads zu ähnlichen Themen

Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Mehr als 7 Wenn-Dann-Verschachtelungen
Bernd

Hallo Leute,
ich habe eine WENN DANN Formel mit mehr als 7 Verschachtelungen. Hat jemand eine Idee wie ich diese Formel so umschreiben kann, dass ich Sie nutzen kann?
Hier ist sie:
=WENN(Monat($D$2)=1;SVERWEIS($D$2;'01'!$G$7:$R$43;2);WENN(Monat($D$2)=2;SVERWEIS($D$2;'02'!$G$7:$R$43...
13.10.2008 17:23:11
Thread-ID: 1016134
4 Beiträge
Anzeige
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
WENN-DANN verschachteln
Stefan

Guten Morgen Zusammen
Hab da ein kleines WENN-DANN Problem. Da müßte ich (wahrscheinlich) schachteln. Aber mit Formeln und verschachteln hab ich so meine lieben Probleme.
Problem:
Ich möchte eine Auswertung machen. Hierzu steht in Zelle E18 der Wert - z.B. A für Aussenstelle und H f...
21.11.2008 08:11:00
Thread-ID: 1026592
2 Beiträge
Wenn-Dann-Funktion als Makro
Sulley

Hallo zusammen,
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro...
24.11.2008 16:47:36
Thread-ID: 1027372
11 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
WENN - dann nicht
anke2245

Hallo Excelfreunde,
wieder einmal ein Problem mit der Erstellung und der Eingabe einer Formel:
Beispiel:
befindet sich in der Zelle B12 eine 1; darf in der Zelle D12 keine 1 eingegeben werden;
befindet sich in der Zelle B12 eine 2; darf in der Zelle D12 keine 2 eingegeben werden...
12.12.2008 15:27:31
Thread-ID: 1032433
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
6
3
6
4
1
10
2
4
10
1
7
14
1
3
2
5
4
11
2
5
2
2
11