Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
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
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten und Zeilen ausblenden

Spalten und Zeilen ausblenden
11.08.2005 16:01:26
Roland
Hallo ihr fleissigen Helfer,
hab hier ein, für mich, unlösbares Problem.
In der angehängten Datei werden auf Knopfdruck neue Datensätze erstellt.
In diesen Datensätzen werden zu den verschiedenen Meilensteinen in Spalte C das Datum der Aktion eingetragen. Da das Ganze über kurz oder lang etwas unübersichtlich wird, möchte ich auf Knopfdruck nur die Spalten und Zeilen angezeigt haben in denen auch ein Datum steht.
Das Problem ist ich weiss schon mal gar nicht wie das geht und dann steht in Spalte A der Kopf und der sollte immer sichtbar sein.
Wäre gut, wenn die ganze Sache dann auch so ausdruckbar wäre.
Auf Knopfdruck sollte ich aber wieder die Orginalversion sehen.
Versucht mir das Ganze bitte einfach zu erklären, da ich schon einige Zeit nichts mehr mit VBA gemacht habe, das Ganze aber auch kapieren möchte.
Dank euch allen im Voraus
Roland
https://www.herber.de/bbs/user/25543.xls

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten und Zeilen ausblenden
11.08.2005 16:57:25
gordon
Hallo Roland,
Datei: https://www.herber.de/bbs/user/25551.xls
Code darin:

Sub row_col_hide()
Dim ws As Worksheet
Dim r As Range
Dim lcol As Integer
Dim lc As Range
Dim c As Range
Dim valueFound As Boolean
Set ws = ActiveSheet
lcol = 107
Set lc = ws.Range("C65536")
If Len(lc.Value) = 0 Then
Set lc = lc.End(xlUp)
End If
'col hide
For i = 4 To lcol
valueFound = False
Set r = ws.Range(ws.Cells(7, i), ws.Cells(lc.Row, i))
For Each c In r
If Not Len(c.Value) = 0 Then
valueFound = True
Exit For
End If
Next
'hiding
If Not valueFound Then
r.EntireColumn.Hidden = True
End If
Next 'i
'row hide
For i = 7 To lc.Row
valueFound = False
Set r = ws.Range(ws.Cells(i, 4), ws.Cells(i, lcol))
For Each c In r
If Not Len(c.Value) = 0 Then
valueFound = True
Exit For
End If
Next
'hiding
If Not valueFound Then
r.EntireRow.Hidden = True
End If
Next 'i
End Sub

Code am besten mal im Debugger schrittweise durchgehen, dann erklärt sich das eigentlich von selbst.
Was zahlt mir jetzt Dein Arbeitgeber ? Wochenende e61 ;-) ?
Zum Ausdrucken noch den Druckbereich entsprechend festlegen. (geht natürlich auch per VBA ;-))
Gruß
gordon
Anzeige
AW: Spalten und Zeilen ausblenden
12.08.2005 07:32:28
Roland
Hallo Gordon,
danke für die schnelle Hilfe funktioniert echt super.
Jetzt hab ich aber noch zwei Probleme.
1. Spalten A und B sollte eigentlich komplett erhalten bleiben um das Projekt auch in dieser Ansicht erkennen zu können.
2. Wie kann ich die ausgeblendeten Spalten und Zeilen wieder einblenden?
Sonst ist es genau so wie ich es mir vorgestellt habe, vielen Dank
Roland
AW: Spalten und Zeilen ausblenden
12.08.2005 10:57:42
gordon
Hallo Roland,
1. Spalten A und B sind doch zu sehen ...? Bei mir zumindest. Missverstanden ?
Sonst lad' mal eine Datei mit Deiner Zielvorstellung hoch.
2. Sheet markieren (Schaltfläche links neben "A" und über "1" oder STRG + A) und Format - Spalte - einblenden oder Format - Zeile - einblenden.
Gruß
gordon
Anzeige

314 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 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
8
16
6
10
3
2
4
7
2
2
4
8
4
3
13
1
5
7
1
11
12
6
11
6
10