Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1180to1184
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
Inhaltsverzeichnis

Spalten mit x markieren (Array)

Spalten mit x markieren (Array)
chris
Hallo VBA Profis,
mit folgendem Code blende ich bestimmte eingeblendete Zeilen aus einem anderen Sheet ein.
Das ganze klappt auch super.
Benötige trotzdem eure Hilfe.
Ich möchte nicht das mit der Code die zeilen einblendet die ausgeblendet sind sondern das der code mir die zeilen zum einblenden mit einem X in z.b Spalte 30 markiert.
Wie geht das ?
Danke im voraus für eure mühen !
Sub showing()
Dim lZeile   As Long
Dim rEinbld  As Range
Application.ScreenUpdating = False
With ws_A
For lZeile = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Rows(lZeile).Height  0 Then
If Not IsError(Application.Match(.Cells(lZeile, 1), Range(ws_p.Cells(4, 1), ws_p. _
Cells(Rows.Count, 1)), 0)) Then
If rEinbld Is Nothing Then
Set rEinbld = ws_p.Cells(Application.Match(.Cells(lZeile, 1), Range(ws_p. _
Cells(4, 1), ws_.Cells(Rows.Count, 1)), 0) + 3)
Else
Set rEinbld = Union(rEinbld, ws_p.Rows(Application.Match(.Cells(lZeile, 1),  _
Range(ws_p.Cells(4, 1), ws_p.Cells(Rows.Count, 1)), 0) + 3))
End If
End If
End If 'Nicht sichtbar Zeile
Next lZeile
End With
'hier sollen die Zeilen nicht eingeblendet werden sondern nur bei entsprechenden Zeilen ein x  _
in Spalte 30 Eingetragen werden
If Not rEinbld Is Nothing Then rEinbld.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalten mit x markieren (Array)
04.10.2010 09:12:34
JogyB
Hallo Chris,
probier es mal so:
Sub showing()
Dim lZeile   As Long
Dim rEinbld  As Range
Application.ScreenUpdating = False
With ws_A
For lZeile = 7 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Rows(lZeile).Height  0 Then
If Not IsError(Application.Match(.Cells(lZeile, 1), Range(ws_p.Cells(4, 1), _
ws_p.Cells(Rows.Count, 1)), 0)) Then
If rEinbld Is Nothing Then
Set rEinbld = ws_p.Cells(Application.Match(.Cells(lZeile, 1), _
Range(ws_p.Cells(4, 1), ws_p.Cells(Rows.Count, 1)), 0) + 3, 30)
Else
Set rEinbld = Union(rEinbld, _
ws_p.Cells(Application.Match(.Cells(lZeile, 1), _
Range(ws_p.Cells(4, 1), ws_p.Cells(Rows.Count, 1)), 0) + 3, 30))
End If
End If
End If 'Nicht sichtbar Zeile
Next lZeile
End With
' Gesammelt wurde bereits Spalte 30, also nur noch Wert eintragen
If Not rEinbld Is Nothing Then rEinbld.Value = "x"
Application.ScreenUpdating = True
End Sub

In rEinbld wird jetzte gleich die Spalte 30 gesammelt, so dass man unten nur noch den Wert eintragen muss.
Gruß, Jogy
Anzeige
AW: Spalten mit x markieren (Array)
04.10.2010 09:26:19
chris
Perfekt.
Danke dir Jogy

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige