Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
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
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Tage löschen durch Makro

bestimmte Tage löschen durch Makro
28.04.2023 15:45:56
Sven

Hallo!

Da ich kaum Erfahrung mit VBA habe, bräuchte ich bitte Eure Unterstützung.
In ein Tabellenblatt wird in Zeile 1 ab Spalte D ein beliebiger Monat (jeder Tag eine Spalte, Spalten als Datum mit * formatiert) einkopiert. Ich hätte nun gern das ein Makro dafür sorgt das mir nur die Spalten erhalten bleiben in denen Freitag steht. Das nächste Monat einkopieren soll dann nach den ermittelten Freitagen erfolgen und dann erneut nur die Freitage stehenbleiben usw.
Ich hoffe ihr könnt mir helfen, ich scheitere schon seit Stunden

Danke und Gruß Sven

Tabellenaufbau bisher ohne Code
https://www.herber.de/bbs/user/158947.xlsx

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Tage löschen durch Makro
28.04.2023 16:07:45
Yal
hallo Sven,

füllt sich wie Code-Kata :-)

Sub Freitags_einfügen()
Dim S

    For S = Range("XFD1").End(xltoleft).Column To 4 Step -1 '*
        If Weekday(Cells(1, S)) = vbFriday Then Cells(1, S).EntireColumn.Delete
    Next
'*: 'beim Spalten löschen, immer rückwärts, also wie beim Bodenwischen: zurück zu Tür, sonst kriegt man nasse Füsse.
End Sub
VG
Yal


AW: bestimmte Tage löschen durch Makro
28.04.2023 20:28:06
Pappawinni
Hallo Yal,

Dein Code interessiert mich ja immer :)
als ich den gesehen hab, dacht ich aber ich hätte die Aufgabe nicht verstanden, denn du haust ja die Freitage raus, und ich dachte genau die sollten erhalten bleiben.


Anzeige
Ja, tatsächlich, also nicht "=" sondern "<>"
02.05.2023 10:21:16
Yal
... und wenn schon Spaltennummer dann direkt, wie Gerd es gezeigt hat, auf Columns gehen

Sub NurFreitags_übriglassen()
Dim S
 
    For S = Range("XFD1").End(xlToLeft).Column To 4 Step -1
        If Weekday(Cells(1, S)) > vbFriday Then Columns(S).Delete
    Next
End Sub
VG
Yal


AW: bestimmte Tage löschen durch Makro
28.04.2023 16:10:06
Edi
Hallo Sven
das Löschen der Spalten könnte so funktionieren

Sub freitag()
    Dim s As Integer
    s = 4
    Do
        If Weekday(Cells(1, s)) > 6 Then
            Columns(s).Delete
        Else: s = s + 1
        End If
    Loop Until Cells(1, s).Value = ""
End Sub
Gruß
Edi


Anzeige
AW: bestimmte Tage löschen durch Makro
28.04.2023 16:14:26
GerdL
Oder so.

Sub Unit()

Dim col As Long

For col = Cells(1, Columns.Count).End(xlToLeft).Column To 4 Step -1
    If Not Left$(Cells(1, col).Text, 7) = "Freitag" Then Columns(col).Delete
Next

End Sub
Den "nächsten Monat .." habe ich leider nicht verstanden.

Gruß Gerd


AW: bestimmte Tage löschen durch Makro
28.04.2023 17:03:40
Pappawinni
Wenn man halt wüsste, ob bei neu eingefügten Kalendern auch die Spalten ohne Datum weg fliegen sollen....
Ich hab das mal so, dass nur wenn in der ersten Zeile ein Datum steht und das kein Freitag ist, dass dann die Spalte gelöscht wird.

Sub behalteFreitag()

Dim lngLCol As Long
Dim I As Long

With ThisWorkbook.Sheets("Tabelle1")

  'Letzte benutzte Spalte
  lngCol = .Cells(1, Columns.Count).End(xlToLeft).Column

  For I = lngCol To 1 Step -1
    'Enthält die Spalte in Zeile 1 ein Datum
    If IsDate(.Cells(1, I)) Then
       'ist das ein anderer Tag als Freitag
       If Weekday(.Cells(1, I)) > 6 Then
         'Spalte löschen
         Columns(I).Delete
       End If
    End If
  Next
  
End With

End Sub


Anzeige
AW: bestimmte Tage löschen durch Makro
28.04.2023 20:50:40
Pappawinni
Hi Edi,
Bei deinem Vorschlag könnt es ein Problem geben, wenn genau so ein Kalender nochmal eingefügt wird, dann sind da erst mal leere Spalten
und dein Makro hört auf.
Besser wäre vermutlich auch da zu wissen, wann die letzte Spalte erreicht ist, also irgendwo würd ich schon sowas
Cells(1, Columns.Count).End(xlToLeft).Column
erwarten. Dann müsstest du aber auch irgenwie die gelöschten Spalten zählen.

vorwärts löschen ist halt so ne Sache, kann man machen, ist halt dann ...*** hätte mein Junior gesagt
rückwärts macht sich das einfacher.


Anzeige
AW: bestimmte Tage löschen durch Makro
28.04.2023 19:25:52
Sven
Vielen Dank für die schnellen Lösungsvorschläge!
Kann leider erst morgen testen, sollte ich dann noch Fragen haben melde ich mich.

Also Dankeschön und beste Grüße
Sven

304 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
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
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3