Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen mit gleichem Inhalt verbinden

Forumthread: Zellen mit gleichem Inhalt verbinden

Zellen mit gleichem Inhalt verbinden
09.04.2003 18:19:00
Lutz
Hallo Excel-Freunde,

ich habe in I11:AM11 jeweils ein Datum, also zB. 01. bis 31.01.2003. In I9:AM9 jeweils die zugehörige Kalenderwoche mittels Formel:
=KÜRZEN((I11-WOCHENTAG(I11;2)-DATUM(JAHR(I11+4-WOCHENTAG(I11;2));1;-10))/7)

Meine Frage: Wie kann ich mittels VBA-Code erreichen, dass die Zellen der Zeile 9 mit gleicher Kalenderwoche verbunden werden ?

Gruß
Lutz

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen mit gleichem Inhalt verbinden
09.04.2003 18:29:25
Berai
Re: Zellen mit gleichem Inhalt verbinden
09.04.2003 18:37:49
Lutz
Hallo Rainer,

wahrscheinlich hast Du mich falsch verstanden.
Die KW steht bereits in Zeile 9. Ich habe im Augenblick also in I9:M9 jeweils eine 1 stehen (01.01.-05.01.2003).
Ich möchte aber erreichen, dass I9:M9 als eine Zelle verbunden werden, ich also nur noch eine 1 über den betreffenden Tagen habe.
Das ganze sollte über VBA-Code funktionieren, da im nächsten Jahr die Tabelle automatisch generiert werden soll.

Gruß
Lutz

Anzeige
Re: Zellen mit gleichem Inhalt verbinden
09.04.2003 18:56:16
Berai
Hallo Lutz,

war ein Missverständnis.
Bei VBA kann ich dir allerdings nicht helfen, obwohl ich nicht verstehe warum unbedingt ein Makro.

Re: Zellen mit gleichem Inhalt verbinden
09.04.2003 19:03:01
Lutz
Hallo Rainer,

an sich richtig, wenn ich 12 Tabellenblätter (pro Monat eins) habe und in jedem Blatt händisch die Zellen verbinden muß,
ist das an sich nicht so schlimm, aber wenn ich im neuen Jahr im ersten Blatt nur die Jahreszahl ändere, und dann wieder bei allen Zellen die Verbindung lösen und neu setzen muß, dann ist das schon nervig und für andere Nutzer auch unprofessionell.

Trotzdem vielen Dank für Deine Mühe.
Gruß
Lutz

Anzeige
noch offen oT
09.04.2003 19:22:39
Lutz

fast gelöst...nur noch Abfrage unterdrücken
09.04.2003 19:45:16
Lutz
Nochmal Hallo an Alle,

habe mit folgendem Code erreicht, dass alle Zellen mit gleichem Inhalt verbunden werden:



Sub KWVerbinden()
a = 9
For i = 9 To 39
b = Cells(9, i)
If Cells(9, i + 1) = b Then
GoTo 1
Else
Range(Cells(9, a), Cells(9, i)).Merge
a = i + 1
End If
Next i
End Sub


     Code eingefügt mit Syntaxhighlighter 2.1

Allerdings erscheint zwischendurch immer die Abfrage, dass nur der Wert der ersten Zelle übernommen wird.
Wie kann ich diese Abfrage unterdrücken ?

Gruß
Lutz

Anzeige
Application.DisplayAlerts = False
09.04.2003 20:04:43
ChrisL
Hallo Lutz

Application.DisplayAlerts = False

' Dein Makro

Application.DisplayAlerts = True


Gruss
Chris

Danke Chris !!!
09.04.2003 20:07:59
Lutz

Re: Zellen mit gleichem Inhalt verbinden
09.04.2003 20:14:07
Berai
Hallo Lutz,

ob 1 Tabellenblatt oder 12 ist einerlei.
So wie ich es verstehe haben deine Tabellen alle die gleiche Struktur.
In diesem Fall kannst du mit der Mehrfachmarkierung arbeiten, dabei bearbeitest du alle Blätter gleichzeitig.
Auch das Datum kann über alle Blätter automatisiert werden.
Wenn du willst maile mir deine Datei ich baue dir sie mal auf.
Das wäre leichter als hier alles Schritt für Schritt zu erklären.

Gruß
Rainer

Anzeige
Re: Zellen mit gleichem Inhalt verbinden
09.04.2003 20:25:54
Lutz
Hallo Rainer,

Danke für Deine Hilfe, habe aber inzwischen das Makro hingekriegt und mit Hilfe von Chris auch so, wie es laufen soll.

Gruß
Lutz

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen mit gleichem Inhalt in Excel verbinden


Schritt-für-Schritt-Anleitung

Um in Excel Zellen mit gleichem Inhalt zu verbinden, kannst du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code ein:

    Sub KWVerbinden()
       a = 9
       For i = 9 To 39
           b = Cells(9, i)
           If Cells(9, i + 1) = b Then
               GoTo 1
           Else
               Range(Cells(9, a), Cells(9, i)).Merge
               a = i + 1
           End If
       Next i
    End Sub
  4. Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.

  5. Drücke ALT + F8, wähle KWVerbinden aus und klicke auf Ausführen.

Damit werden alle Zellen in der Zeile 9 automatisch verbunden, wenn sie den gleichen Wert haben.


Häufige Fehler und Lösungen

  • Fehler: Die Abfrage, dass nur der Wert der ersten Zelle übernommen wird, erscheint.

    • Lösung: Füge vor deinem Makro den Befehl Application.DisplayAlerts = False ein und nach dem Makro Application.DisplayAlerts = True, um die Abfrage zu unterdrücken.
  • Fehler: Zellen werden nicht richtig verbunden.

    • Lösung: Stelle sicher, dass du die korrekten Zeilen und Spalten in deinem Code angibst. Überprüfe auch, ob die Werte tatsächlich identisch sind.

Alternative Methoden

Wenn du keine VBA-Programmierung nutzen möchtest, kannst du die Zellen auch manuell verbinden:

  1. Markiere die Zellen, die du verbinden möchtest.
  2. Klicke mit der rechten Maustaste und wähle Zellen formatieren.
  3. Gehe zum Tab Ausrichtung und aktiviere die Option Zellen verbinden.

Diese Methode ist jedoch nicht automatisiert und muss für jede Gruppe von Zellen durchgeführt werden.


Praktische Beispiele

Hier ist ein Beispiel für die Anwendung des VBA-Codes:

Angenommen, du hast die folgenden Werte in Zeile 9:

I9 J9 K9 L9 M9
1 1 2 2 2

Nach dem Ausführen des Makros wird das Ergebnis so aussehen:

I9 J9 K9 L9 M9
1 2

Die Zellen, die den gleichen Wert haben, sind nun verbunden.


Tipps für Profis

  • Nutze die Mehrfachmarkierung, um mehrere Blätter gleichzeitig zu bearbeiten. Das spart Zeit, wenn du mehrere Tabellen mit der gleichen Struktur hast.
  • Speichere dein Excel-Dokument vor dem Ausführen von Makros, um Datenverlust zu vermeiden.
  • Experimentiere mit dem Formatieren von Zellen, z. B. durch excel kästchen schraffieren, um visuelle Unterscheidungen zu schaffen.

FAQ: Häufige Fragen

1. Wie kann ich die Zellen automatisch verbinden, wenn ich neue Daten hinzufüge? Du kannst das Makro so anpassen, dass es beim Öffnen der Datei automatisch ausgeführt wird. Füge dazu den Code in das Workbook_Open Ereignis ein.

2. Funktioniert dieser Code auch in Excel Online oder nur in Desktop-Versionen? Der VBA-Code funktioniert nur in der Desktop-Version von Excel. Excel Online unterstützt keine Makros.

3. Kann ich das Makro anpassen, um Zellen in einer anderen Zeile zu verbinden? Ja, du kannst die Zeilennummer im Code ändern, um Zellen in einer anderen Zeile zu verbinden, indem du Cells(9, i) in Cells(X, i) änderst, wobei X die gewünschte Zeilennummer ist.

Beliebteste Forumthreads (12 Monate)

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