Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kurze Gruppierungs-Makrofrage

Kurze Gruppierungs-Makrofrage
03.01.2007 21:06:47
Thomas
Hallo und guten Abend
Ich hoffe ich kann mich einigermaßen ausdrücken um meine Frage näher zu bringen. In der Beispieltabelle seht Ihr einfache Zeilen die regelmäßig
gruppiert sind. Meine Frage:
Gibt es einen Befehl, ein Makro, welches die regelmäßigkeit bis zum Schluß anwendet ? Also so von wegen - zwei Spalten ohne, drei Spalten mit Gruppierung.
Es geht nämlich um eine Datei die gut an die 260 Spalten hat. Gibt es da
irgendwie eine einfachere Möglichkeit ?
Herzlichen Dank
https://www.herber.de/bbs/user/39352.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:13:48
Hubert
"Es geht nämlich um eine Datei die gut an die 260 Spalten hat."
Kaum zu glauben!
mfg Hubert
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:20:51
Thomas
Ähm. Hallo Hubert. Doch doch. Ich seh in dem Excel-Sheet kaum ein Ende.
Oder hab ich die Frage nur dumm formuliert ? Achhh jeeee ;-)
Ist das überhaupt möglich ?
Gruß
Thomas
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:22:36
Hubert
Hi,
in deiner Excelversion gibt es nur 256 Spalten.
mfg Hubert
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:27:53
Thomas
Sorry. Ich habs nicht abgezählt gehabt :-( Dann halt 256
Gruß
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:41:59
chris
Hallo Thomas,
wenn ich dich richtig verstanden habe Hilft dir das.
Option Explicit

Sub gruppieren()
Dim xx As Integer
Dim x As Integer
xx = 2
For x = 1 To 250
On Error Resume Next
Range(Cells(1, xx), Cells(1, xx + 2)).Columns.Group
xx = xx + 5
Next
End Sub

Rückmeldung wäre nett gruß Chris
Anzeige
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:55:06
Thomas
Hallo Chris
Vielen vielen Dank für Deine Hilfe. Aber darf ich Dich noch was dummes Fragen?
Ich bin blutiger ExcelAnfänger. Wo bzw. wie gebe ich diesen Code ein ?
Befehlszeile ? Makro ? Gibt es da was spezielles ?
Danke und Gruß
Thomas
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 21:59:52
chris
Darfst du, jeder hat mal angefangen.
Öffne den VBA Editor.
Am einfachsten mit ALT + F11
Dann kannst du wenn du es noch nicht links sichtbar hast über das Menü "Ansicht" und selektierst dort "Projektexplorer".
Dann klickst du auf das VBA projekt deiner Arbeitsmappe mit rechts und sagst
"einfügen" -- "Modul"
in dieses neue Modul kannst du den Code eingeben und dort kannst du es mit der Taste F5 starten.
Und wenn du in Excel bist kannst du das Makro mit AlT+F8 auswählen und starten.
Anzeige
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 22:27:41
Thomas
Hallo Chris.
Vielen Dank. Das funzt einwandfrei. Ein bisschen VB kann ich sogar.
Der Befehl "RAnge", was hat der nochmals zu sagen ?
Diese eine Zeile verstehe ich nicht so ganz.
Ich bin am grübeln, wiue z.B. der Befehl lauten würde, wenn statt 2 normal 3 gruppiert,
1 normal 4 gruppiert wären. Was für ein brainstorm am Abend ;-)
Danke und Gruß
Thomas
AW: Kurze Gruppierungs-Makrofrage
03.01.2007 23:06:29
chris
siehe VBA Hilfe:
vieleicht wird es so etwas klarer:

Sub test()
'beide schreiben in zelle A1
Worksheets("Tabelle1").Range("A1").Value = "test1"
Worksheets("Tabelle1").Range(Cells(1, 1), Cells(1, 1)).Value = "test2"
'beide schreiben in zelle B2
Worksheets("Tabelle1").Range("B2").Value = "test3"
Worksheets("Tabelle1").Range(Cells(2, 2), Cells(2, 2)).Value = "test4"
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige