Registriert seit: 14.01.2015
Version(en): 2007
10.05.2018, 17:22
(Dieser Beitrag wurde zuletzt bearbeitet: 10.05.2018, 17:22 von 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
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 14.01.2015
Version(en): 2007
10.05.2018, 17:39
(Dieser Beitrag wurde zuletzt bearbeitet: 10.05.2018, 17:46 von 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
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
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.
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo Dieter,
Zitat: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.
Registriert seit: 14.01.2015
Version(en): 2007
10.05.2018, 19:48
(Dieser Beitrag wurde zuletzt bearbeitet: 10.05.2018, 19:48 von 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
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi Dieter,
Zitat: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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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 ...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)