Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gesamtspaltenbreite verbundener Zellen

Forumthread: Gesamtspaltenbreite verbundener Zellen

Gesamtspaltenbreite verbundener Zellen
27.12.2014 14:52:04
Peter
Guten Tag
Mit nachstehendem Code kann ich die erste Zelle eines Bereiches verbundener Zellen identifizieren.
rCell.MergeArea.ColumnWith gibt mir allerdings nur die Spaltenbreite der ersten Spalte zurück (z.b. 10.71). Wenn ich jedoch Zellen über drei Spalten verbundne habe, möchte ich die Gesamtbreite erhalten.
Wie kann ich diese mittels VBA ermitteln?
Gruss, Peter
If rCell.MergeCells And rCell.MergeArea.Cells(1).Address = rCell.Address Then
MsgBox "Ja, " & rCell.Address(0, 0) & " ist die erste Zelle verbundener Zellen."
MsgBox rCell.MergeArea.ColumnWidth
End If

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gesamtspaltenbreite verbundener Zellen
27.12.2014 15:29:21
Matthias
Hallo
Bsp. A3:C3 sind Verbundzellen

Sub tt()
Dim rCell As Object, x&
Set rCell = Range("A3")
If rCell.MergeCells And rCell.MergeArea.Cells(1).Address = rCell.Address Then
MsgBox "Ja, " & rCell.Address(0, 0) & " ist die erste Zelle verbundener Zellen."
MsgBox rCell.MergeArea(rCell.MergeArea.Count) & " verbundene Zellen"
For x = 1 To rCell.MergeArea(rCell.MergeArea.Count)
MsgBox rCell.MergeArea(x).ColumnWidth
Next
End If
End Sub
Das addieren überlasse ich Dir ;-)
Gruß Matthias

Anzeige
AW: Gesamtspaltenbreite verbundener Zellen
27.12.2014 15:41:12
Peter
Hallo Matthias
Ich danke dir!
Allerdings hat mir die zweite MsgBox nur den Text "verbundene Zellen" (ohne Zahl) ausgegeben.
Mit einer kleinen Kürzung läuft es: 
Sub ttt()
Dim rCell As Object, x&, dblSpalten As Double
Set rCell = Range("D8")
If rCell.MergeCells And rCell.MergeArea.Cells(1).Address = rCell.Address Then
MsgBox "Ja, " & rCell.Address(0, 0) & " ist die erste Zelle verbundener Zellen."
MsgBox rCell.MergeArea.Count & " verbundene Zellen"
For x = 1 To rCell.MergeArea.Count
''MsgBox rCell.MergeArea(x).ColumnWidth
dblSpalten = dblSpalten + rCell.MergeArea(x).ColumnWidth
Next
End If
MsgBox "Total " & dblSpalten
End Sub
Gruss, Peter

Anzeige
AW: Gesamtspaltenbreite verbundener Zellen
27.12.2014 16:16:34
Hajo_Zi
Du hast das Problem doch gelöst? Was ist offen?

AW: Gesamtspaltenbreite verbundener Zellen
27.12.2014 16:17:34
Peter
Hallo Hajo
Wenn ich "noch offen" angeklickt habe, war das ein Versehen!
Danke und Gruss, Peter

AW: Gesamtspaltenbreite verbundener Zellen
27.12.2014 16:24:34
Matthias
Hallo
Allerdings hat mir die zweite MsgBox nur den Text "verbundene Zellen" (ohne Zahl) ausgegeben
Bei mir nicht!
Ich habe aber auch nicht D8 benutzt sondern A3:C3 als Verbundzellen
Da zeigt mir Excel schon die MsgBox die 3 verbundenen Zellen an.
Userbild
Sei es drum. Hast ja eine Lösung für Dein Problem bekommen ;-)
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Spalten mit Zeilen tauschen ?
Holger

Hallo zusammen,
gibt es in Excel eine Möglichkeit, Daten einer oderer mehrere Spalten nun quasi um 90° zu drehen und alles in eine oder mehrere Zeilen zu kopieren.
Gruss
Holger Wächter
18.09.2008 10:26:00
Thread-ID: 1010640
4 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Anzeige
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Anzeige
Zelleninhalt mit Makro auf Spalten aufteilen
Rene

Hallo Experten,
ich benötige bitte eure Hilfe und hoffe, dass meine erste Problemschilderung nicht zu unverständlich ist.
Hier mein Problem bzw. Wunsch-Makro:
Farblich markierte Zellen in Tabelle1: C1: =3453,63+235,64-23563,12
D5: =1234,43-234+234.... usw.
Aufteilung de...
15.02.2009 14:48:00
Thread-ID: 1050879
5 Beiträge
Dynamische Zellen- und Spaltenbereiche
gatewax

Hallo,
ich habe nur eine kurze Frage die sicher auch schnell beantwortet werden kann.
Wie bekommt man diese dynamischen Zeilen- und Spaltenbereiche wie auf dem Bild hin.

03.04.2009 10:56:58
Thread-ID: 1066603
2 Beiträge
Bestimmte Zeilen und Spalten löschen
jo_cindy

Hallo Leute, hab mal wieder eine Frage:
Nachfolgende Exceldatei bekomme ich aus meiner Zeiterfassung ausgelesen. Die rot markierten Bereiche (nur zur Erklärung hier rot gekennzeichnet!) benötige ich aber nur, alle anderen Daten sollen nicht nur ausgeblendet werden, sondern gelöscht werden....
28.04.2009 19:32:33
Thread-ID: 1071712
5 Beiträge
Zeilen- und Spaltenbreite in cm
Hartwig

Hallo Leute,
ich habe untenstehendes Makro mal von einem guten Helfer im Forum bekommen.
Ich weiß aber nicht mehr von wem. Nun weichen die Ergebnisse aber von der Eingabe ab.
Wenn ich z.B. 3,00 cm Spaltenbreite eingebe, erhalte ich 2,80 cm, bei 3,00 cm Zeilenhöhe
erhalte ich 3,3...
29.04.2009 09:49:17
Thread-ID: 1071787
4 Beiträge
Spalten vergleichen und Zeilen verschieben
Silke

Hallo,
ich habe da ein kleines Problem: ich möchte gerne Duplikate in den Spalten A und B suchen und die betreffenden Zeilen dann in die Tabelle 2 verschieben
Kann mir da jemand helfen?
Silke
07.05.2009 09:58:30
Thread-ID: 1073519
14 Beiträge
VBA: Spalteninhalt dynamisch verschieben
Dom

Hallo zusammen,
ich möchte einen Spalteninhalt (dynamisch) um einen Faktor nach unten verschieben.
Normalerweise gibt es ja folgende Funktion
Range("D4:I4").Select
Selection.Cut Destination:=Range("D5:I5")
Range("D5:I5").Select
Da dies jedoch nicht Dynamisch ist (d.h....
09.06.2009 18:10:04
Thread-ID: 1080235
2 Beiträge
Anzeige
Zeilen und Spalten sind WEG
Georg

Hallo Excel Welt,
was ist denn bei dieser Datei passiert? Da sind ja Zeilen und Spalten weg, aber nicht einfach ausgeblendet, sondern WEG?!
Könnt Ihr mir das erklären?
Danke und Gruß
Georg
https://www.herber.de/bbs/user/65058.xls
13.10.2009 09:47:46
Thread-ID: 1109250
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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