Office: Zellen verbinden innerhalb einer definierten Range

B.Jones · 10. Dezember 2014

Guten Tag wertes Forum,

ich doktere nun schin etwas länger an der richtigen Syntax zu folgendem Problem:

Ich hab eine Range definiert (übergeben bekommen). Inneralb dieser Range möchte ich mehrere Zellbereich mergen. Ich versuche das wie im Code Beisiel beschrieben, bekomme keinen Fehler, aber er verbindet di Zellen auch nicht.
Code:

With myRange
.range(.cells(2,4),.cells(2,6).merge
end with
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke fürs grübeln, oder besser noch fürs helfen.

:)

chris-kaiser · 11. Dezember 2014

Hi,

fehlt da nicht noch eine Klammer?
.range(.cells(2,4),.cells(2,6)).merge

B.Jones · 11. Dezember 2014

Sorry, habe im Code eine Klammer vergessen (am Ende) es müsste heißen:
Code:

With myRange
.range(.cells(2,4),.cells(2,6)).merge
end with
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 11. Dezember 2014

Hi,

Code:

Sub nn()
Dim myrange As Worksheet
Set myrange = ActiveSheet
With myrange
.Range(.Cells(2, 4), .Cells(2, 6)).Merge
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

passt vielleicht dein myrange nicht? (die Namensgebung lässt mich das vermuten)

übrigens ich meide verbundene Zelle wie der Teufel das Weihwasser. *Smilie
Für was werden die eigentlich gebraucht?

B.Jones · 11. Dezember 2014

übrigens :
Mit der Makrorekorder - Mehode (Select ("D7:F7"), Selection.merge) funktionierts, aber die Range ist dynamisch und ich kann (und will) nicht mit festen Selektionen arbeiten.

B.Jones · 11. Dezember 2014

Hi,

ja meine Range ist ein dynamischer Zellbereich (im konkreten Fall von A6 bis P29.

Ich bekomme die Range geliefert:

Code:

Dim rDP1Engpass As Range
Sub Nachbearbeitung(ByVal sQueryID As String, ByVal resultArea As Range)
Select Case sQueryID

Case "DATA_PROVIDER_1"
' Query Z010B_AM_Q7_ZMAMBBGE_BESTB_001

showAllCellsEngpassbericht
setRanges resultArea
iAnzahlSpalten = CInt(rDP1Engpass.Columns.Count)
lAnzahlZeilen = CLng(rDP1Engpass.Rows.Count)
prepareHeadlines
End Select
end sub
Sub setRanges(aRange As Range)
Set rDP1Engpass = aRange
End Sub

Sub prepareHeadlines()
Dim Loopje As Integer
With rDP1Engpass
For Loopje = 1 To iAnzahlSpalten
If .Cells(1, Loopje) = "Kundennummer" Then
iErsteKundenspalte = Loopje
.Cells(1, Loopje) = ""
.Cells(2, Loopje) = ""
End If
Next Loopje
.Cells(3, iErsteKundenspalte) = sLine3 'Produktlinie 3
.Cells(3, iErsteKundenspalte - 1) = sLine2
.Cells(3, iErsteKundenspalte - 2) = sLine1
.Cells(2, iErsteKundenspalte - 2) = sTextProduktlinie
' .Range(.Cells(2, 4), .Cells(2, 6)).Merge
Range("D7:F7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End With

End Sub
.Range(.Cells(2, 4), .Cells(2, 6)).Merge
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 11. Dezember 2014

Hi,

da steht auch nichts drinnen in D7:F7
auch ein ""
reicht schon

versuche mal folgendes
vor der Zeile mit Merge
Application.displayalerts=false
und dannach
Application.displayalerts=true

ist jetzt aber nicht getestet.

B.Jones · 12. Dezember 2014

Hi,

hat leider nicht funktioniert.
Ich denke, das liegt daran, das die Range von SAP BEX gebildet wurde, und irgendwie geschützt ist. Wenn ich einzelne Zellen neu setzte wird auch deren Code durchlaufen, der ist z.T. in ner DLL versteckt, so das ich nicht sehen kann.

Danke trotzdem für die Hilfe. Werde es jetzt noch mit einem Offset versuchen, danach gebe ich auf und arbeite mit selection...

B.Jones · 12. Dezember 2014

Hab ne Lösung gefunden:
Warum das jetzt funzt weiss ich auch nicht, aber jetzt kann ich dynamisieren.

Danke an alle fürs grübeln

Code:

sub mergeBEXCells aRange as Range
With Worksheets("Tabelle1")
Set rErsteZelle = aRange .Cells(2, 4)
Set rLetzteZelle = aRange .Cells(2, 6)
With .Range(rErsteZelle, rLetzteZelle)
.Merge
.HorizontalAlignment = xlCenter
End With
End With
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 12. Dezember 2014

Moin Chris

übrigens ich meide verbundene Zelle wie der Teufel das Weihwasser.
Für was werden die eigentlich gebraucht?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Um bespw. etwas zu verstecken! ;-)
Luc und Matthias L. sind begeisterte Zellenverbinder. Hab ich von denen gelernt.

Tabelle1
A B C
1 1 1
2 2
verbundene Zellen
A1:A2
verwendete Formeln
Zelle Formel Bereich R1C1 für Add In
C1:C2 =A1 =RC[-2]
Tools Tabelle Forum - Hajo's Excelseiten
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

Office: Zellen verbinden innerhalb einer definierten Range

Zellen verbinden innerhalb einer definierten Range

Zellen verbinden innerhalb einer definierten Range

Zellen verbinden innerhalb einer definierten Range

Zellen verbinden innerhalb einer definierten Range

Zellen verbinden innerhalb einer definierten Range - Similar Threads - Zellen verbinden definierten

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

zeilenweise Zellen per VBA verbinden

Bestimmte Zeichen aus zwei zellen verbinden

Zellen automatisch verbinden

Zellen verbinden bei bestimmtem Wert aus Dropdown-Liste

Zellen verbinden und zentrieren standard - ÄNDERN

Zellen verbinden und Text kopieren

verwendete Formeln
Zelle	Formel	Bereich	R1C1 für Add In
C1:C2	=A1		=RC[-2]