Wie kann ich per Makro in Word vertikal verbundene Zellen trennen?

Hallo, ich habe verschiedene Tabellen, in denen sich durch Löschen einer Spalte Leerzeilen ergeben haben. Diese kann ich leider nicht per Makro löschen; es kommt eine Fehlermeldung wegen der vertikal verbundenen Zellen. Daher würde ich gerne die vertikal verbundenen Zellen trennen.

Etwas genauer vielleicht noch

Es bleiben zwei Spalten übrig.

Spalte 1 enthält keine verbundenen Zellen.

Spalte 2 enthält die verbundenen Zellen, die unterschiedlich vielen Zeilen in Spalte 1 entsprechen. Mal sind nur zwei Zeilen verbunden, mal 10.

Vielen tausend Dank für eure Hilfe!

2 Antworten

pavaro74

17.08.2017, 14:36

Hey, mir ist nicht ganz klar warum du ein Makro verwenden möchtest....

Generell kannst du verbundene Zellen mit Rechtsklick > Zellen teilen wieder teilen.

Wenn dir das nicht hilft, dann musst du das Problem vielleicht etwas genauer schildern.
Ich kann zB auch nicht nachvollziehen wie durch Löschen von Spalten Leerzeilen entstehen.

Unwissend000

Beitragsersteller

17.08.2017, 14:47

Hallo Paravo74,

danke für die schnelle Antwort.

Es handelt sich um ein Interview. Jede Spalte ist einem Sprecher zugeteilt. Da ich nicht alle Sprecher analysieren möchte, lösche ich die Spalten der Sprecher, die ich nicht benötige. Wenn Sprecher A (Spalte 1) spricht, ist in der selben Zeile bei Sprecher B (Spalte 2) nichts eingetragen. Lösche ich nun Sprecher 2, so habe ich in jeder Zeile, in der der Sprecher 2 gesprochen hat, bei Sprecher 1 Leerzeilen.

Ich wollte es gerne per Makro machen, damit ich nicht jede Zeile einzeln mit rechtsklick wieder trennen muss. Wir reden hier von um die tausend Zeilen pro Interview. Und davon habe ich 20.

Oder kann ich generell alle verbundenen Zellen bei Word wieder trennen?

ProRatione

17.08.2017, 14:43

Sub test()
Cells.Select
With Selection
.MergeCells = False
End With
End Sub

ProRatione

17.08.2017, 14:49

Sorry, ich habe Word überlesen.

pavaro74

17.08.2017, 15:05

@ProRatione

Ist wohl das einfachste die Tabellen in Excel zu kopieren und dort zu bearbeiten :)

Unwissend000

Beitragsersteller

21.08.2017, 13:03

@pavaro74

habe es nach Excel kopiert. Dort lässt es sich ganz einfach ein- und ausschalten. Funktioniert super.

Ähnliche Beiträge

VBA Makro Excel Letzte beschriebene Zeile vor Leerzeile, weitere Leerzeile einfügen

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

...zum Beitrag

Makro zum Zusammenfassen von Spalten

Hallo alle zusammen,

ich hab ein kleines Problem mit einem Makro, welches ich mir mit Hilfe diverser Quellen versucht habe auf meinen Fall zusammenzuschustern. Folgendermaßen kann man sich die Grundsituation vorstellen:

Ich habe in den Spalten D Und E ca 70 Zeilen mit Einträgen. Bis auf die Zellen 11 - 14 Ist die Spalte E leer. Also wollte ich ein Makro benutzen, welches die Spalte D wenn D und/oder E leer sind mit E zusammenfasst und sonst nicht.

Das soll dann auch für die Spalten F,G und H,I und immer soweiter klappen. Wer könnte mir Helfen und zeigen wo mein Fehler liegt denn bisher funktioniert das Makro nicht ganz so wie ich mir das vorgestellt habe.

Sub Formatierung()

Dim Zeile As Integer Dim Spalte As Integer

For Spalte = 4 To 256 Step 2
For Zeile = 1 To 100

If ((Not (IsEmpty(Cells(Spalte, Zeile)))) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True) Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

If IsEmpty(Cells(Spalte, Zeile)) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

Next Zeile

Next Spalte

End Sub

So sieht das bisher aus. Für jede Hilfe vorab schonmal besten Dank

...zum Beitrag

Excel-Formel per VBA in eine Zelle schreiben?

Hallo,

ich habe eine Tabelle mit 1934 Zeilen und 6 Spalten mit diversen Werten. Am Ende dieser Tabelle möchte ich ein paar statistiche Auswertungen einfügen und habe ein Problem folgende Formel per VBA-Makro in eine Leerzeile einzufügen:

'=ZÄHLENWENNS(F2:F1934;"=0")+ZÄHLENWENNS(F2:F1934;"=1")

Schreibe ich diese Formel manuell in die Zelle, summiert sie was sie zählen soll!

Der Makro liefert mir einen Laufzeitfehler 1004 und ich weiß nicht warum...

FORM01A = FRST_F & ":" & LAST_F & ";""""=0"""""

FORM01B = FRST_F & ":" & LAST_F & ";""""=1"""""

FORM01 = "=ZÄHLENWENNS(" & FORM01A & ")" & "+ZÄHLENWENNS(" & FORM01B & ")"

Cells(neu, 1).EntireRow.Insert

Cells(neu, 1) = "Anzahl aktive MGL in " & xGMD

Cells(neu, 2) = FORM01

Ich vermute, dass es an den Hochkommata liegt. Hat jemand eine Idee?

Gruß jumo

...zum Beitrag

Kann mir jemand bei diesem Makro eine Schleife einbauen?

ich benötige dringend Hilfe bei diesem Makro!

ich habe dieses Makro von einem Mitglied von gf.

dieses Makro benötigt dringend eine Schleife

von Zeile 1 To 6000

also Zeile 1 ist SUMME(ZÄHLENWENN($A1:$F1;$L:$Q))

und Zeile 2 wäre dann $A2:$F2

und das Ganze dann bis Zeile 6000

Sub FormelAnpassen()

Dim spalte As Long

Dim zeile As Long

Dim bezugZeile As Long

zeile = 2

bezugZeile = 0

For spalte = 20 To 200

bezugZeile = bezugZeile + 1

Cells(zeile, spalte).FormulaArray = "=SUM(COUNTIF($A1:$F1,$L$" & bezugZeile & ":$Q$" & bezugZeile & "))"

End Sub

es wäre super wenn mir jemand helfen würde

danke im voraus

...zum Beitrag

Wie kann ich Zellen löschen in excel, es kommt Zellen löschen und danach kommt nur noch Spalten oder Zeilen löschen, ich möchte aber Zelle löschen?

...zum Beitrag

Wie kann man ein Makro in mehreren Zeilen wiederholen?

Ich soll für einen Bekannten in der Feuerwehr ein Makro zu einer Excel Liste schreiben. Konkret: - Wenn in Spalte B ein "A" für Atemschutz steht, soll die Zeile rot hinterlegt werden. Das Makro dazu habe ich auch schon geschrieben. Das Problem: Ich müsste dieses Makro jetzt für jede Zeile neu kopieren und abändern. Gibt es eine Möglichkeit das Makro für jede Zeile zu wiederholen?

Tabelle und Makro anbei.

...zum Beitrag

Excel Makro VBA Zellen vergleichen und bei Übereinstimmung Zeile löschen

Hallo miteinander, kenne mich leider gar nicht in VBA aus und brauche dringend Hilfe für ein Projekt. Ich beschreibe mal kurz mein Problem: Im Worksheet "Objekt löschen" in zeile C6 soll eine Objekt ID eingegeben werden. Diese muss dann mit den Objekt IDs im Worksheet "Objektdaten" in der Spalte B verglichen werden. Wenn sie dort existiert, dann soll die gesamte Zeile, in der sich die eingegebene ID befindet, gelöscht werden. Das ganze soll funktionieren, indem man auf eine Schaltfläche auf dem 1. Tabellenblatt klickt. Ich hoffe, das war jetzt einigermaßen verständlich erklärt. Freue mich sehr über eure Hilfe Danke :) Rosi

...zum Beitrag

In Excel Text einer Zelle ab dem Komma löschen

Liebe Experten,

in meiner Excel-Datei befindet sich in der Spalte E in einigen Zellen (nicht in jeder Zeile) ein Text, der irgendwann durch ein Komma getrennt ist.

Der Text ist in jeder Zelle unterschiedlich

Ich benötige nur den Text vor dem Komma.

Also aus Frau Müller, Geranien Weg 5 soll nur noch Frau Müller werden oder aus Team A - Team B, 6. Spieltag soll nur noch Team A - Team B werden.

Ich bräuchte dafür ein Makro bzw einen Code den ich in ein schon bestehendes Makro einbauen kann.

Vielen Dank für Eure Hilfe. Ich google mich schon langsam tot, ohne etwas passendes gefunden zu haben bzw. meine VBA - Kenntnisse sind dafür einfach noch zu rudimentär.

...zum Beitrag

VBA Excel Makro komplette Zeile löschen,wenn bestimmte Wörter enthalten

 Dim arrSuchbegriff, i&
 arrSuchbegriff = Array("Suchbegriff1", "Suchbegriff2", "", "SB3")

 For i = LBound(arrSuchbegriff) To UBound(arrSuchbegriff)
     ActiveSheet.Columns("A").Replace arrSuchbegriff(i), "###@@@###", xlPart, MatchCase:=False
 Next i
 ActiveSheet.Columns("A").AutoFilter Field:=1, Criteria1:="*###@@@###*"
 ActiveSheet.Cells.Delete

Das Makro klappt, allerdings löscht es mir nur die Zelle in der der Begriff enthalten ist, und nicht die komplette Zeile. Kann jemand helfen? Viele Grüße

...zum Beitrag

Wie kann man Inhalte von Zellen in darunterliegende Zellen kopieren?

In meinem Tabellenblatt in Spalte A sind Werte eingetragen mit Leerzeilen dazwischen. Ich möchte diese Werte immer bis zum nächsten Wert kopieren, so das am Ende meine Tabelle komplett ausgefüllt ist. Es gibt bestimmt ein Makro oder eine Funktion die das kann.

...zum Beitrag

Excel Gruppierung mit Makro anlegen?

Hallo,

ich erstelle gerade einen Projektplan und würde gerne ein Makro einbinden das ein Untergruppierung für eine Zelle einbindet wenn ich die Zelle anklicke.

z.B. ich klicke Zelle B22 an und es wird eine neue Zeile darunter mit "Plus" Gruppierung angelegt.

...zum Beitrag

Kann man in Excel bestimmte Zellen in einer Zeile leeren, wenn in einer Zelle in der selben Zeile ein "x" steht?

Ich habe eine Excel-Tabelle. In dieser möchte ich bestimmte Werte durch ein Eintragen eines "x" in der selben Zeile löschen.

Ich nenne mal ein Beispiel:

Ich trage meine Werte in die Zellen B9, C9 und D9 ein. Nun will ich die Zellen B9, C9, D9 und E9 Löschen und trage in Zeile E9 ein "x" ein. Zellen sind jetzt leer, Zeile aber noch vorhanden (wegen der Daten in Spalte A).

Dasselbe könnte ich jetzt mit einer anderen Zeile machen, z.B. 42: Ich trage meine Werte in die Zellen B42, C42 und D42 ein. Nun will ich die Zellen B42, C42, D42 und E42 Löschen und trage in Zeile E42 ein "x" ein. Zellen sind jetzt leer, Zeile aber noch vorhanden (wegen der Daten in Spalte A).

Voraussetzungen:

Werte stehen in den Zeilen 6-155

das eingetragene "x" soll nur die entsprechenden Inhalte der selben Zeile löschen

Inhalte stehen in Spalten "B", "C", "D"; "x" soll eingetragen werden in Spalte "E"

gelöscht werden soll Inhalt aus "B" bis "E"

Löschung entweder sofort nach Eintrag des "x" oder mit Klick auf Schaltfläche

Ich würde mich sehr freuen, wenn es jemand gibt der mir ein Makro dazu schreibt. Ich habe mich mit diesem Thema noch nicht besonders anfreunden können :)

Danke schonmal im Voraus!

...zum Beitrag

Excel VBA - Formeln variabel nach unten kopieren (Makro)?

Hi Zusammen

Ich habe eine Tabelle, in der in Zellen A3:G3 Formeln sind. Ich will mittels Makro die Formeln nach unten kopieren. In Spalte I sind Datensätze. Wie kann ich ein Makro so erstellen, dass die Formeln in Spalten A:G nur soweit eingefügt werden, wie in Spalte I Daten vorhanden sind? Die Daten in Spalte I ist variabel (200, mal 300, etc.)

...zum Beitrag

Excel - wie verbundene Zellen trennen und Inhalt in die einzelnen Zellen für ganze Spalte kopieren?

Wenn ich die ganze Spalte markiere und den Zellverbund aufhebe, habe ich ja nur noch einzelne Zellen. Allerdings wird der Inhalt damit nicht kopiert und da ich über 20.000 Zeilen habe, kann ich diese auch nicht einzeln mit dem + rechts unten an der Zelle kopieren. Gibt es irgendein Funktion die die ganze Spalte nach diesem Muster ausfüllen kann?

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen