Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Zeilen nach Vergleich zusammenschieben

Forumthread: 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
Anzeige

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)

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