Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1052to1056

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

bestimmte Zeilen über der aktiven Zelle ausblenden

Forumthread: bestimmte Zeilen über der aktiven Zelle ausblenden
11 Beiträge zu diesem Forumthread
Anzeige
306 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

01.03.2009 19:41:02

Karsten

Hallo,
ich möchte per Makrobefehl alle Zeilen über der aktiven Zelle ausblenden, die in der selben Spalte ohne Inhalt sind.
Danke für eure Hilfe.
Gruß
Karsten

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: bestimmte Zeilen über der aktiven Zelle ausblenden

01.03.2009 19:57:06

Tino
ach so ohne Inhalt, ein Moment oT.

01.03.2009 20:00:07

Tino
so gehts

01.03.2009 20:05:51

Tino
AW: so gehts

01.03.2009 20:15:53

Karsten
AW: so gehts

01.03.2009 20:16:32

Karsten
ok. oT.

01.03.2009 20:30:08

Tino
AW: bestimmte Zeilen über der aktiven Zelle ausblenden

01.03.2009 20:00:21

Josef
AW: bestimmte Zeilen über der aktiven Zelle ausble

01.03.2009 20:14:17

Karsten
AW: bestimmte Zeilen über der aktiven Zelle ausble

01.03.2009 20:16:48

Josef
noch ein Vorschlag,

01.03.2009 20:03:50

Renee
AW: noch ein Vorschlag,

01.03.2009 20:19:52

Karsten

AW: bestimmte Zeilen über der aktiven Zelle ausblenden

01.03.2009 19:57:06

Tino

Hallo,
z. Bsp. so


Sub Blenden()
If ActiveCell.Row > 1 Then
Range(ActiveCell.Offset.Offset(-1, 0), Range("a1")).EntireRow.Hidden = True
End If
End Sub

Gruß Tino

ach so ohne Inhalt, ein Moment oT.

01.03.2009 20:00:07

Tino

so gehts

01.03.2009 20:05:51

Tino

Hallo,


Sub Blenden()
Dim Bereich As Range
If ActiveCell.Row > 1 Then
Set Bereich = Range(Cells(1, ActiveCell.Column), ActiveCell.Offset(-1, 0))
On Error Resume Next
Bereich.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0
End If
End Sub

Gruß Tino

AW: so gehts

01.03.2009 20:15:53

Karsten

Hallo,
danke, hab mich allerdings für Sepps Variante entschieden.
Gruß
Karsten

AW: so gehts

01.03.2009 20:16:32

Karsten

Hallo,
danke, hab mich allerdings für Sepps Variante entschieden.
Gruß
Karsten

ok. oT.

01.03.2009 20:30:08

Tino

AW: bestimmte Zeilen über der aktiven Zelle ausblenden

01.03.2009 20:00:21

Josef

Hallo Karsten,

Sub ausblenden()
  Dim rng As Range

  On Error Resume Next
  Set rng = Range(Cells(1, ActiveCell.Column), Cells(ActiveCell.Row - 1, ActiveCell.Column)).SpecialCells(xlCellTypeBlanks)
  On Error GoTo 0

  If Not rng Is Nothing Then rng.EntireRow.Hidden = True

  Set rng = Nothing
End Sub

Gruß Sepp

AW: bestimmte Zeilen über der aktiven Zelle ausble

01.03.2009 20:14:17

Karsten

Hallo...
Danke. Ich bräuchte das Selbe nochmal rückwärts. Alle Zeilen über der aktiven Zelle einblenden, die in der selben Spalte ohne Inhalt sind.
Danke
Gruß Karsten

AW: bestimmte Zeilen über der aktiven Zelle ausble

01.03.2009 20:16:48

Josef

Hallo nochmal,

Sub einblenden()
Range(Cells(1, ActiveCell.Column), Cells(ActiveCell.Row - 1, ActiveCell.Column)).EntireRow.Hidden = False
End Sub

Gruß Sepp

noch ein Vorschlag,

01.03.2009 20:03:50

Renee

Hi Karsten,
So werden wenigsten alle wieder eingeblendet, wenn ausserhalb der benutzen Zellen navigiert wird ;-)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
Range(Cells(1, Target.Column), _
Cells(Target.Row - 1, Target.Column)).EntireRow.Hidden = False
If Intersect(Target, UsedRange) Is Nothing Then Exit Sub
On Error Resume Next
Range(Cells(1, Target.Column), _
Cells(Target.Row - 1, Target.Column)) _
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
On Error GoTo 0
End Sub

GreetZ Renée

AW: noch ein Vorschlag,

01.03.2009 20:19:52

Karsten

Hallo,
danke, hab mich allerdings für Sepps Variante entschieden.
Gruß
Karsten