Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gruppierung nur, wenn noch nicht vorhanden!!

Forumthread: Gruppierung nur, wenn noch nicht vorhanden!!

Gruppierung nur, wenn noch nicht vorhanden!!
25.11.2003 13:54:43
Jenny
Hallo Ihr Lieben,

das hier ist mein Code zur Erstellung einer Ansicht eines Tabellenblatts.
Mein Problem hierbei ist aber, dass die Gruppierung natürlich jedesmal durchgeführt wird, sobald das Makro aufgerufen wird und sich so beliebig viele Levels mit ein- und derselben Gruppierung ergeben...

Frage: Wie kann ich sagen: Führe die Gruppierung nur aus, wenn diese Gruppierung noch nicht existiert.

--------------------------------------------------------------------------------


Sub Ansicht_Abteilung1()
ActiveWorkbook.Worksheets("Blatt2").Activate
'das wird ausgeblendet
Range("BS:BY").Select
Selection.EntireColumn.Hidden = True
'das wird gruppiert
Columns("K:S").Select
Selection.Columns.Group
Columns("X:AF").Select
Selection.Columns.Group
Columns("AK:BC").Select
Selection.Columns.Group
Columns("BI:BK").Select
Selection.Columns.Group
End Sub


--------------------------------------------------------------------------------

Danke für Eure Mithilfe,
Jenny
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung nur, wenn noch nicht vorhanden!!
25.11.2003 14:48:21
Reinhard
Hi Jenny,
ich fand nichts was den Gruppierzustand einer Zelle anzeigt. Als workaround das folgende Makro. Es versucht die Gruppierung von K:S aufzuheben. Wenn dabei ein Fehler kommt (=nicht gruppiert) gruppiert es alles wie gewünscht. Falls kein Fehler kommt (=K:S ist gruppiert gewesen), gruppiert es K:S neu und verläßt die Sub.
Gruß
Reinhard

Sub Ansicht_Abteilung1()
With ActiveWorkbook.Worksheets("Tabelle2")
'das wird ausgeblendet
.Columns("BS:BY").Hidden = True
'das wird gruppiert
On Error GoTo KeineGruppe
.Columns("K:S").Ungroup 'Falls K:S nicht gruppiert ist, kommt hier Fehler
.Columns("K:S").Group 'K:S wieder gruppieren
Exit Sub
KeineGruppe:
.Columns("K:S").Group
.Columns("X:AF").Group
.Columns("AK:BC").Group
.Columns("BI:BK").Group
End With
End Sub

Anzeige
PERFEKT! Genau was ich brauche! Danke!!
25.11.2003 15:35:28
Jenny
*
;

Forumthreads zu verwandten Themen

Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Verlinken auf Blatt mit UDF nicht möglich
Alexandra

Hallo an alle,
ich will heute gleich eine zweite Frage loswerden:
In einem Arbeitsblatt benutzt die Bedingte Formatierung 2 Konditionen mit der UDF HasFormula. Die UDF befindet sich in einem VB-Modul. Damit die UDF verwendet werden kann, muss die Option "Makros aktivieren" beim Öffnen...
02.07.2009 16:11:47
Thread-ID: 1086007
7 Beiträge
Anzeige
Round noch nicht vorhanden?
TommiH

Hallöchen,
kann es sein das bei Office 97 in Excel doe Round-Funktion noch nicht existierte? Habe ein etwas aktuelleres Makro (von Excel2000) und beim Ausführen wird über ROund gemeckert :(
Gibt es da eine Alternative? Irgendwie finde ich weder unter Runden noch unter Round etwas...
09.10.2009 12:37:32
Thread-ID: 1108525
5 Beiträge
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
Anzeige
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
kopieren eines großen Tabellenblatts nicht möglich
Bibabutzel

Hallo zusammen,
der nette Sepp (Josef Ehrensberger) aus diesem Forum hat mir ein Makro geschrieben, das nach Erfüllung verschiedener Bedingungen mehrere neue Tabellenblätter erzeugt, indem ein "Vorlage-Tabellenblatt" kopiert wird. Das Makro funktioniert tadellos - allerdings nur, wenn das "...
15.01.2010 23:04:46
Thread-ID: 1130392
8 Beiträge
Anzeige
Rechtsklick -> Einfügen nicht mehr möglich
Jonathan

Hallo liebe Experten,
ich stehe nun vor einen richtig komischen Problem:
Ich habe eine Excel-Datei mit mehreren Sheets. Die Datei setzt sich aus 4 Datenblättern (4 einzelne Sheets) und mehreren Darstellungssheets zusammen. Die Darstellungssheets besitzen mehrere Checkboxen und Labels.
29.03.2011 11:17:40
Thread-ID: 1208049
3 Beiträge
Bereich kopieren, in neues Blatt einfügen.
Chris

Hallo zusammen,
ich habe mir folgendes Makro geschrieben, dass mir ein neues Tabellenblatt erzeugt und den Name des Blattes aus einer Zelle liest. Läuft soweit.
Nun bräuchte ich noch den Zusatz, dass vom Ausgangsblatt ("Tabelle1"), der Bereich D1:F28 kopiert wird und
jeweils in das...
13.09.2011 23:44:34
Thread-ID: 1229775
11 Beiträge
VBA, automatisch Tabellenblätter erstellen
Tim

Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt() 'Varialen deklarieren Dim ws As Worksheet, wb As Workbook, sName As String ' Name des neuen Blattes auslesen s...
21.04.2012 11:33:55
Thread-ID: 1260338
3 Beiträge
Bilder in Excel einfügen - Makro geht nicht mehr
Bobby2105

Hallo zusammen,
in einem Beitrag aus 2005 habe ich dieses Makro gefunden: Sub BilderEinfuegen() 'by J.Ehrensberger Dim fSearch As FileSearch Dim strPath As String Dim iCnt As Integer Dim pic As Picture On Error GoTo ERRORHANDLER Application.ScreenUpdating = False ' "alte" Bilder löschen Ac...
25.10.2013 20:04:04
Thread-ID: 1335949
2 Beiträge
kann kein neues Tabellenblatt anlagen
Climbi

Hallo
ein Kollege von mir hat in einer Excel 2013 Anwendung Tabellenblätter gelöscht
und unter einem neuen Namen abgespeichert.
Ich kann in dieser neuen Anwendung nun kein neues Tabellenblatt mehr anlegen.
Im Kontextmenü bei den Tabellenblattreitern ist nur noch "Code anzeigen"...
09.01.2014 09:58:55
Thread-ID: 1344586
4 Beiträge
zeilenweise importieren, wenn noch nicht vorhanden
Wolfgang

Hallo,
in einem Arbeitsordner befinden sich diverse „Bezugs-Mappen“ und auch die „Ziel-Mappe“, aus der Abfragen, wie nachfolgend, erfolgen.
In die aktuell geöffnete Mappe, so bewirkt der jetzige Code, werden alle Zeilen aus der Mappe „I_Eingaenge.xlsx, Tabelle1-„ in Tabelle7 importi...
18.11.2014 17:40:32
Thread-ID: 1393118
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige