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

Forumthread: Bei verbundenen Zellen Inhalte löschen

Bei verbundenen Zellen Inhalte löschen
20.02.2022 17:07:30
RolRom
Hallo liebe Gemeinde,
mit viel Hilfe und nach langem Googeln habe ich mir eine Tabelle zur Erfassung des Arbeitsbeginn sowie der geleisteten Stunden der Mitarbeiter gebastelt. Jetzt fehlt mir aber noch eine Funktion, die ich "Letzte Eingabe löschen" genannt habe. D,h., per Makro soll die jeweils letzte Eingabe in ein (Stunden-)Feld in Spalte E10:E71 gelöscht werden. Mein Makro:

Sub letzte_Eingabe_loschen_2()
ActiveSheet.Unprotect
Dim lngLR&
Const lngLMT As Long = 71
With ThisWorkbook.Sheets("Stunden")
lngLR = IIf(Len(.Cells(lngLMT, 5)), lngLMT, .Cells(lngLMT, 5).End(xlUp).Row)
If lngLR > 9 Then .Cells(lngLR, 5).ClearContents
End With
ActiveSheet.Unprotect
End Sub
>
Saudummerweise bestehen diese Felder nun aus jeweils zwei verbundenen Zellen, sodass ich auf die Fehlermeldung "Dies ist bei verbundenen Zellen leider nicht möglich" laufe.
Diese verbundenen Zellen liegen 'natürlich' vertikal...
Kann mir dazu jemand einen heißen Tipp, besser noch ein passendes Makro mitteilen?
Bin leider nicht so fit mit Excel, dass mir hierzu was einfallen würde...
Danke euch schon mal!!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei verbundenen Zellen Inhalte löschen
20.02.2022 18:27:33
JoWE
Hallo,
versuch mal:

Sub letzte_Eingabe_loschen_2()
ActiveSheet.Unprotect
Dim lngLR&
Const lngLMT As Long = 71
Dim rngCell As Range
Dim rngVCells As Range
With ThisWorkbook.Sheets("Stunden")
lngLR = IIf(Len(.Cells(lngLMT, 5)), lngLMT, .Cells(lngLMT, 5).End(xlUp).Row)
If lngLR > 9 Then
Set rngVCells = Cells(lngLR, 5)
If Not rngVCells.MergeCells Then
rngVCells.ClearContents
Else
For Each rngCell In rngVCells
rngCell.MergeArea.ClearContents
Next
End If
End If
End With
ActiveSheet.Protect
End Sub
Gruß
Jochen
Anzeige
AW: Bei verbundenen Zellen Inhalte löschen
20.02.2022 19:51:01
Rolf
Hallo Jochen,
das funktioniert ja super, vielen vielen Dank!!!
Jetzt habe ich aber noch ein- wie ich hoffe kleineres- Problem mit dieser Tabelle:
In meinem ersten Post habe ich unterschlagen, das in der Spalte "D" gleichzeitig Daten eingetragen werden, die natürlich ebenfalls gelöscht werden sollen. Mit zwei Makros/Schaltflächen funktioniert das, aber ich hätte das eben lieber in (d)einem Makro vereint.
Kannst du mir da noch mal auf die Sprünge helfen?
VG Rolf
Anzeige
AW: Bei verbundenen Zellen Inhalte löschen
20.02.2022 20:02:26
JoWE
Rolf,
Hab ich gern gemacht, schön dass es klappt.
Nun zur Folgebitte:
Unter welchen Bedingungen sind welche Daten
in der Spalte D zu löschen?
Alternative:
Wenn die beiden Makros doch funktionieren, könntest Du sie doch einfach im
Makro mittels Call Makro xyz1 und Call Makro xyz2 starten lassen.
Gruß
Jiche
Anzeige
AW: Bei verbundenen Zellen Inhalte löschen
20.02.2022 23:42:07
Rolf
Hallo Jochen,
ich muss doch noch mal meine Gegebenheiten korrigieren, sorry!
Im Range E10:E71 übernehme ich berechnete Stunden in die jeweils verbundenen Zellen E10/E11, E12/E13 usw.
Im Range D10:D71 übernehme ich in jeder Zelle die im Kopfbereich eingegeben Kommt-/Gehtzeiten, d.h. D10 = Kommt und D11 = Geht; D12 = Kommt und D13 = Geht usw.
Wenn ich also die geleisteten Stunden in der verbundenen Zelle E10/E11 lösche, sollen natürlich gleichzeitig die Zeiten Kommt/Geht in den Zellen D10 und D11 gelöscht werden.
Ich danke dir schon jetzt ganz herzlich für deine Geduld!
Guats Nächtle
Rolf
Anzeige
AW: Bei verbundenen Zellen Inhalte löschen
21.02.2022 01:01:59
Rolf
Ha,
das hat mir ja doch keine Ruhe gelassen. Nun bin ich auf die Idee verfallen, das Makro Kommt/Geht per Call Makro einfach doppelt ausführen zu lassen. Ist vielleicht nicht sonderlich elegant, funktioniert aber.
Wenn du doch noch ne andere Lösung siehst, ich lerne gerne dazu ;-)
Jetzt noch ein Feierabendbierchen!
Gute Nacht!
Anzeige
AW: Bei verbundenen Zellen Inhalte löschen
21.02.2022 10:44:38
GerdL
Guten Morgen!

Union(.Cells(lngR, 5).MergeArea, .Cells(lngR, 4).Resize(2, 1)).ClearContents
Gruß Gerd
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Inhalte in verbundenen Zellen löschen: So geht's


Schritt-für-Schritt-Anleitung

Um Inhalte in verbundenen Zellen in Excel zu löschen, ist es wichtig, die speziellen Anforderungen dieser Zellen zu beachten. Hier ist eine Schritt-für-Schritt-Anleitung, um dies mit einem VBA-Makro zu erreichen:

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

  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeinWorkbookName)" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub letzte_Eingabe_loschen_2()
       ActiveSheet.Unprotect
       Dim lngLR As Long
       Const lngLMT As Long = 71
       Dim rngCell As Range
       Dim rngVCells As Range
       With ThisWorkbook.Sheets("Stunden")
           lngLR = IIf(Len(.Cells(lngLMT, 5)), lngLMT, .Cells(lngLMT, 5).End(xlUp).Row)
           If lngLR > 9 Then
               Set rngVCells = .Cells(lngLR, 5)
               If Not rngVCells.MergeCells Then
                   rngVCells.ClearContents
               Else
                   For Each rngCell In rngVCells
                       rngCell.MergeArea.ClearContents
                   Next
               End If
           End If
       End With
       ActiveSheet.Protect
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, um den Inhalt der verbundenen Zellen zu löschen.


Häufige Fehler und Lösungen

Bei der Arbeit mit verbundenen Zellen in Excel können einige häufige Probleme auftreten:

  • Fehlermeldung: "Dies ist bei verbundenen Zellen leider nicht möglich": Diese Meldung tritt auf, wenn du versuchst, Inhalte direkt in verbundenen Zellen zu löschen. Verwende stattdessen das oben genannte Makro.

  • Inhalte werden nicht gelöscht: Stelle sicher, dass du die richtigen Zellreferenzen im Makro verwendest und dass die Zellen tatsächlich verbunden sind.


Alternative Methoden

Wenn du die verbundenen Zellen aufheben und den Inhalt kopieren möchtest, kannst du die folgenden Schritte befolgen:

  1. Wähle die verbundenen Zellen aus.
  2. Gehe zu "Start" > "Ausrichten" > "Verbundene Zellen aufheben".
  3. Kopiere die Inhalte in eine andere Zelle oder einen anderen Bereich.

Auf diese Weise kannst du den Inhalt mehrerer Zellen löschen, ohne auf die Limitierungen der verbundenen Zellen zu stoßen.


Praktische Beispiele

Angenommen, du hast in den Zellen E10 und E11 verbundene Zellen, in denen die geleisteten Stunden gespeichert sind, und du möchtest diese Inhalte zusammen mit den Zeiten in den Zellen D10 und D11 löschen. Nutze dafür das angepasste Makro:

Sub komplette_Eingabe_loschen()
    ActiveSheet.Unprotect
    Dim lngR As Long
    Const lngLMT As Long = 71
    With ThisWorkbook.Sheets("Stunden")
        lngR = IIf(Len(.Cells(lngLMT, 5)), lngLMT, .Cells(lngLMT, 5).End(xlUp).Row)
        If lngR > 9 Then
            Union(.Cells(lngR, 5).MergeArea, .Cells(lngR, 4).Resize(2, 1)).ClearContents
        End If
    End With
    ActiveSheet.Protect
End Sub

Dieses Makro löscht den Inhalt der verbundenen Zellen und der benachbarten Zellen in einer einzigen Aktion.


Tipps für Profis

  • Vermeide verbundene Zellen bei umfangreichen Daten: Wenn möglich, arbeite ohne verbundene Zellen. Sie können die Datenverarbeitung erheblich komplizieren und zu Fehlern führen, wie das Problem, dass "Excel kopieren bei verbundenen Zellen nicht möglich" ist.

  • Nutze Datenüberprüfung: Setze Datenvalidierungen ein, um sicherzustellen, dass die Eingaben in den Zellen korrekt sind, bevor du die Inhalte löscht.


FAQ: Häufige Fragen

1. Warum kann ich Inhalte in verbundenen Zellen nicht direkt löschen?
Das Löschen von Inhalten in verbundenen Zellen ist nicht möglich, da Excel die Zellen als eine Einheit behandelt. Du musst ein Makro verwenden, um den Inhalt zu löschen.

2. Wie kann ich verbundene Zellen aufheben und den Inhalt kopieren?
Du kannst die verbundenen Zellen aufheben, indem du die Zellen auswählst und im Menü "Ausrichten" die Option "Verbundene Zellen aufheben" wählst. Danach kannst du den Inhalt kopieren.

3. Gibt es eine Möglichkeit, mehrere verbundene Zellen gleichzeitig zu löschen?
Ja, du kannst ein VBA-Makro verwenden, das die verbundenen Zellen in einer Schleife durchläuft und deren Inhalte löscht.

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