Zelleninhalt verbinden über VBA

• Zelleninhalt verbinden über VBA von Günter vom 24.02.2005 05:36:25
• AW: Zelleninhalt verbinden über VBA - von Harald E am 24.02.2005 08:09:00
• AW: Zelleninhalt verbinden über VBA - von Jan am 24.02.2005 08:14:35
• AW: Zelleninhalt verbinden über VBA - von Günter am 24.02.2005 08:18:12
• AW: Zelleninhalt verbinden über VBA - von UweD am 24.02.2005 08:19:58
  • AW: Zelleninhalt verbinden über VBA - von Günter am 24.02.2005 08:32:11
• AW: Zelleninhalt verbinden über VBA - von Günter am 24.02.2005 08:44:53
  • AW: Zelleninhalt verbinden über VBA - von Harald E am 24.02.2005 08:57:36
    • AW: Zelleninhalt verbinden über VBA - von Günter am 24.02.2005 09:02:15
      • Ahhh, jetzt ja - von Harald E am 24.02.2005 09:32:56
        • AW: Ahhh, jetzt ja - von Günter am 24.02.2005 09:39:25
      • AW: Zelleninhalt verbinden über VBA - von UweD am 24.02.2005 09:49:04
        • AW: Zelleninhalt verbinden über VBA - von Günter am 24.02.2005 10:02:11

Betrifft: Zelleninhalt verbinden über VBA
von: Günter

Geschrieben am: 24.02.2005 05:36:25
Guten Morgen,
folgendes nagt an mir:
In einer Exceldatei möchte ich, dass in Spalte A und B
nur diese Zellen verbunden werden, wenn in Spalte A der Begriff
"Buchabschnitts-Nr.:" steht.
Der Rest in Spalte A und B soll nicht verändert werden.
Gruss
Günter

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Harald E

Geschrieben am: 24.02.2005 08:09:00
Hallo Günther,
auf die Schnelle.

Sub verbinden()
For i = 1 To 2000 'bis Zeile 2000
If Cells(i, 1).Value Like "Buchabschnitts-Nr*" Then
Range(Cells(i, 1), Cells(i, 2)).MergeCells = True
End If
Next i
End Sub

Gruß
Harald

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Jan

Geschrieben am: 24.02.2005 08:14:35
Hi Günter,
Vielleicht so:

Sub zusammen()
If Range("a2") = "Buchabschnitts-Nr" Then
Range("A2:B2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
End If
Range("A2").Select
End Sub

Jan

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Günter
Geschrieben am: 24.02.2005 08:18:12
Vielen Dank Jan und Harald!
Muss mal Testen.
Danke
Günter

Betrifft: AW: Zelleninhalt verbinden über VBA
von: UweD

Geschrieben am: 24.02.2005 08:19:58
Hallo Günter
so klappt es

Sub Verbinden()
Dim LR%, I%
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
For I = 1 To LR
If Cells(I, 1).Value = "Buchabschnitts-Nr.:" Then
Range(Cells(I, 1), Cells(I, 2)).MergeCells = True
Else
Range(Cells(I, 1), Cells(I, 2)).MergeCells = False
End If
Next I
End Sub

Gruß UweD

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Günter
Geschrieben am: 24.02.2005 08:32:11
Hallo Uwe!
Ich bekomme bei Ablauf die Laufzeitfehler 6 (Überlauf).
Was könnte das heißen ?
Gruss
Günter

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Günter
Geschrieben am: 24.02.2005 08:44:53
Hallo !
Habe alle Variation ausprobiert - aber ohne Erfolg.
Bei allen kommt die Meldung:
Die Auswahl enthält mehrere Werte. Wenn die Zellen verbunden werden, wird nur
der Wert aus der obersten linken Zelle erhalten.
Gruss
Günter

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Harald E

Geschrieben am: 24.02.2005 08:57:36
Hallo Günther,
kann ich nicht nachvollziehen. Bei mir läuft der Code (im Blattmodul), selbst wenn bereits verbundene Zellen vorhanden sind. Wobei es auch egal ist, ob Punkte/Doppelpunkte verwendet werden.
Ggf. mal ne abgespeckte Version der Datei hochladen.
Gruß
Harald

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Günter
Geschrieben am: 24.02.2005 09:02:15
Hallo Harald!

Hier die abgespeckte Datei:
https://www.herber.de/bbs/user/18649.xls

Schönen Gruß
Günter

Betrifft: Ahhh, jetzt ja
von: Harald E
Geschrieben am: 24.02.2005 09:32:56
...eine Insel ;-))
Das kann nur funktionieren, wenn die Zelle neben Buchabschnitts-Nr.: leer ist.
Wie das zu lösen wäre, übersteigt allerdings meine Fähigkeiten.
Beide Zellen färben oder umranden wäre eine einfachere Option.
Gruß
harald

Betrifft: AW: Ahhh, jetzt ja
von: Günter
Geschrieben am: 24.02.2005 09:39:25
Hallo Harald !
Meinst Du die Zelle links oder rechts neben dem Buchabschnitts-Nr. ?
Gruss
Günter

Betrifft: AW: Zelleninhalt verbinden über VBA
von: UweD

Geschrieben am: 24.02.2005 09:49:04
Hallo
Das Zellen verbinden (über Format) geht nur, wenn die ausschließlich die erste Zelle belegt ist. Andernfalls werden die Zellinhalte der restlichen Zellen gelöscht.

Vielleicht meinst du ja, das der Inhalt von B mit in A reinsoll.
Das ginge so:

Sub Verbinden()
Dim LR%, I%
LR = Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
For I = 1 To LR
If Cells(I, 1).Value = "Buchabschnitts-Nr.:" Then
Cells(I, 1).Value = Cells(I, 1).Value & " " & Cells(I, 2).Value
Cells(I, 2).ClearContents
End If
Next I
End Sub

Gruß UweD

Betrifft: AW: Zelleninhalt verbinden über VBA
von: Günter
Geschrieben am: 24.02.2005 10:02:11
Hallo Uwe,
super, genau so hat es funktioniert.
Respekt.

Vielen Dank
Günter

Excel-Beispiele zum Thema "Zelleninhalt verbinden über VBA"
Zellen verbinden und trennen	Textdateien verbinden
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen	Zellinhalte über VBA verbinden
Werte von jeweils zwei Zeilen verbinden	Zellinhalte vor dem Verbinden der Zellen zusammenfassen
Zellen verbinden, ohne dass Werte verlorengehen	Dateiname, Tabelle und Berreich zu einer Verknüpfung verbinden
Zellen verbinden und senkrecht ausrichten	Zellen zeilenweise verbinden