Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Zeilen nach Vergleich zusammenschieben

Makro: Zeilen nach Vergleich zusammenschieben
01.01.2006 12:25:18
Stefan
Ein Gutes neues Jahr
nochmals
HalLo
Ich möchte Zeilen die nicht dem bestimmten Monat entsprechen zusammenschieben.
Siehe mein File Upload.
https://www.herber.de/bbs/user/29601.xls

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Zeilen nach Vergleich zusammenschieben
01.01.2006 19:23:17
et999
Hi Stefan,
vesuch's mal mit diesem Makro im Worksheet(Vorher bitte C3 als Datum formatieren):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Cells(3, 3) Then Ausblenden
End Sub

Sub Ausblenden()
'Achtung! Du musst das Auswahlfeld C3 vorher als Datum formatieren _
sonst klappt das ganze nicht.
Application.ScreenUpdating = False
Dim I As Integer
ActiveSheet.UsedRange.EntireRow.Hidden = False
On Error Resume Next
For I = 14 To 44
If Month(Cells(I, 3)) Month(Cells(3, 3)) _
Then Cells(I, 3).EntireRow.Hidden = True
If Cells(I, 3).Value = "Woche" Then _
Cells(I, 3).EntireRow.Hidden = False
Next
Application.ScreenUpdating = True
End Sub
Ich hoffe es klappt.
Gruß
Uwe
(:o)
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige