Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfe ob Spalten aus/eingeblendet ist

Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 09:07:55
Chris
Hallo Forum,
ich möchte folgendes per VBA lösen:
Für die ersten vier Arbeitsmappen soll Excel jeweils überprüfen, welche Spalten im Bereich von E:N ausgeblendet sind.
Sind Spalten ausgeblendet soll die jeweilige Spalten Nummer (also für E = Spalte 5) im Sheet "ZF" ab A1 untereinander aufgelistet werden.
Sind Spalten nicht ausgeblendet soll keine Spaltennummer angegeben werden.
Wie löst man dies per VBA?
Gruß
Chris

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 09:55:35
hary
Moin
"ersten vier Arbeitsmappen" meinst du damit Tabellenblaetter?
Teste mal.

Dim zelle As Range
Dim naechste As Long, i As Long
With Worksheets("ZF")
.Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
For i = 1 To 4
For Each zelle In Worksheets(i).Range("E:N").Columns '--1. bis 4. Blatt
If zelle.Hidden = True Then
letzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If .Cells(1, 1) = "" Then letzte = 1
.Cells(letzte, 1) = zelle.Column
End If
Next
Next
End With
gruss hary
AW: Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 09:55:37
ChakkaCor
Hi Chris,
trifft es das?

Sub hidden_columns()
sheets_count = Worksheets.Count
row_enter = 2 'in welche Zeile wird eingetragen in Blatt ZF
For sheet_number = 1 To 4 'die ersten 4 Blätter durchgehen (Name unabhängig)
For i = 5 To 14 'Spalten durchgehen und prüfen
If Worksheets(sheet_number).Columns(i).EntireColumn.Hidden = True Then
Sheets("ZF").Cells(row_enter, 2) = i    'Spalte einfügen
Sheets("ZF").Cells(row_enter, 1) = Sheets(sheet_number).Name 'Betroffenes Blatt einfügen
row_enter = row_enter + 1 'Zeile hochzählen zum Eintragen
End If
Next
Next
End Sub
Einfach in ein Modul einfügen und ausführen in deiner Datei. Ggf musst du aber die Spalten und Zeilen zum Eintragen anpassen.
Anzeige
AW: Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 11:00:51
Chris
Hallo ChakkaCor,
ja, das trifft es. Ich habe es angepasst und es funktioniert perfekt! Danke!
Geht dieses auch "umgekehrt"? In einem zweiten Schritt soll Excel die SheetNamen und die jeweiligen Spalten Nummer auslesen und entsprechend wieder einblenden.
AW: Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 11:29:45
GerdL
Hallo Chris!

Sheets(i).Rows(1).EntireColumn.Hidden = False
Gruß Gerd
AW: Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 11:44:38
snb
Meinst du ?

Sheets(i).columns.Hidden = False

AW: Prüfe ob Spalten aus/eingeblendet ist
06.01.2023 13:58:11
Chris
Hallo SNB
ich meine es so:
Im Sheet ZF stehen ab G2 die Namen der Tabellenblätter, die ausgeblendete Spalten haben.
ab H2 stehen die Spaltennummern.
Excel soll bei Workbook_Open anhand bei dieser beiden Spalten die jeweilige Spalte im jeweiligen Sheet wieder einblenden.
Gruß
Chris
Anzeige
AW: Prüfe ob Spalten aus/eingeblendet ist
07.01.2023 18:25:37
ChakkaCor
Meinst du so?

Private Sub Workbook_Open()
last = Sheets("ZF").Cells(Rows.Count, 7).End(xlUp).Row 'Letzte in Spalte 7 (G) belegte Zeile
'sheets_count = Worksheets.Count
For sheet_number = 1 To 4 'die ersten 4 Blätter durchgehen (Name unabhängig)
For col = 2 To last
Worksheets(Sheets("ZF").Cells(col, 7).Value).Columns(Sheets("ZF").Cells(col, 8).Value).EntireColumn.Hidden = False
Next
Next
'Falls die alten Einträge in Blatt ZF in Spalte G und H gelöscht werden sollen beim öffnen:
Sheets("ZF").Range("G2:H40").Select 'Bereich auswählen nach Wahl. Ich habe hier 40 Zeilen genommen, da bei 10 Spalten pro Blatt bei 4 Blättern 40 ergibt
Selection.ClearContents
End Sub

Anzeige
AW: Prüfe ob Spalten aus/eingeblendet ist
09.01.2023 07:42:16
Chris
Hi,
da scheint noch ein Fehler drin zu sein.
Worksheets(Sheets("ZF").Cells(col, 7).Value).Columns(Sheets("ZF").Cells(col, 8).Value).EntireColumn.Hidden = False
Die in den jeweiligen Sheets ausgeblendeten Spalten werden nicht eingeblendet. Müsste in der obigen Zeile die sheet_number Variabel angegeben sein?
Gruß
Chris
AW: Prüfe ob Spalten aus/eingeblendet ist
09.01.2023 08:38:29
Chris
Hi,
habs nun hinbekommen:

Sub HideColumns()
Dim ws As Worksheet
Dim last, col As Long
last = Sheets("ZF").Cells(Rows.Count, 7).End(xlUp).Row
For Each ws In Sheets
For col = 2 To last
If Sheets("ZF").Cells(col, 7).Value = ws.Name Then
ws.Columns(Sheets("ZF").Cells(col, 8)).EntireColumn.Hidden = True
End If
Next
Next
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
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
3
4
3
4
4
3
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3