VBA verbundene Zellen

[Didi]

Für mein Excel Projekt habe ich mir etwas neues einfallen lassen wo ich durch lesen noch nicht zu einer Lösung gekommen bin.

Private Sub CommandButton1_Click()
Worksheets("UnitTabelle").Rows("3:3").Insert Shift:=xlDown
Range("G14:K14,BK14").Copy Worksheets("UnitTabelle").Range("B10")
End Sub

Ist BK14 eine einzelne Zelle läuft es.

Mein Problem ist BK14.  BK14  ist verbunden bis BW14.

Die Zielzellen sind nicht verbunden

Wie kann man die Fehlermeldung beseitigen ?

Dieter

[RPP63]

Zellverbund auflösen, Didi?
So hübsch das Ganze in einem Druckformular(!) vertikal ist (B5:B10 vertikal zentriert; horizontal gibt es einfachere Sachen),
so schwierig ist es, die Nachteile per VBA zu kompensieren.

Gruß Ralf

[Didi]

Die Zellen welche ausgelesen werden zu verbinden verunstaltet das Blatt.
Habe schon alle Zellen des Verbundes kopiert, das Klappt.
Aber leider sieht es am Ziel schlecht aus.
Zumal die 6 Zellen am Ziel auch wieder ausgelesen werden. (Das klappt wenigsten schon )

Dieter

Edit:

Habe gerade festgestellt das durch das Einfügen einer Zeile alles durcheinander kommt.
Daher muss ich erst einmal dieses Problem lösen.
Den Weg dafür habe ich irgendwo schon mal gelesen.

Dieter

[WillWissen]

Hi Dieter,

unabhängig von Lösungsvorschlägen (zu denen ich leider nichts beitragen kann) solltest du dir überlegen, ob du deine Tabelle nicht umbauen willst. Verbundene Zellen werden immer wieder mal Probleme bereiten bis hin zu falschen Berechnungen, was du in großen Tabellen unter Umständen niemals bemerkst. Schau dir doch bitte zu diesem Thema einmal diesen Beitrag http://www.clever-excel-forum.de/thread-142.html an.

[RPP63]

Mach mal (abseits meiner Abneigung gegen Zellverbünden):

Code:

Range("G14:K14").Copy Worksheets("UnitTabelle").Range("B10")
Range("BK14").Copy Worksheets("UnitTabelle").Range("F10")

Statt Range("F10") evtl. Range("BK10").Offset(0, -5) je nachdem, was Du gerade vorhast.

[Käpt'n Blaubär]

Hallo Dieter,

Wie kann man die Fehlermeldung beseitigen ?

... und hier der Nächste, der Dir vorschlägt, den Zellverbund aufzuheben.
Das gibt nur Fehlermeldungen und der Ärger ist auf Dauer vorprogrammiert.
Du siehst ja, der Ärger geht schon los, wenn man nur so simple Arbeiten wie
Kopieren und / oder Einfügen erledigen will.
Da Verbundene Zellen meist nur der Optik wegen eingesetzt werden,
... das geht auch anders.
Und ja, mit mächtigen Klimmzügen kann man damit klarkommen aber ich werde
nicht dabei helfen. Ich bin im Gegenteil der Meinung, der Typ, der das erfunden
hat, der gehört täglich mit dem Rasenmäher rasiert.

[Didi]

Ich darf das Blatt nicht verändern.

Sub CommandButton1_Click()
'Bereich kopieren
Sheets("KW1").Range("G14:K14,BK14:BW14").Copy
'einfügen in erste freie Zeile in UnitTabelle
Sheets("UnitTabelle").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
End Sub

Damit ist der obige Fehler welchen ich gefunden habe beseitigt.
Ich werde nun mal versuchen den neuen Code hier hinein zu bekommen.

Dieter

[WillWissen]

Hi Dieter,

Ich darf das Blatt nicht verändern.

dann solltest du deinem Entscheider einmal den verlinkten Text zu lesen geben und ihn fragen, ob er seine verbundene Zellen immer noch will, wenn seine Ergebnisse u.U. nicht stimmen. Manchmal hilft direkt ein fachlich begründetes Gespräch, vor allem, wenn die Entscheider keine Ahnung von der Materie haben.

[schauan]

Hallo Günter,
Das sollte dann aber auch voll zutreffen und nicht durch entsprechende Programmierung oder Gestaltung vermeidbar sein. Sollte der Entscheider zumindest etwas Ahnung haben, bist Du als Programmierer sonst schnell der ohne Ahnung ...

[WillWissen]

Hi André,

sorry, damit bin ich nicht einverstanden. Ein Entscheider mit Ahnung lässt so einen Krampf nicht zu oder geht zumindest auf Argumente ein.
Aber diese Diskussion sollten wir nicht ausdehnen. Wenn es eine Lösung des Problems gibt, ist es ok. Mein Hinweis sollte auch nur ein Denkanstoß gewesen sein.