Tabellenbereich mit Makros kopieren

[HKindler]

Offset geht anscheinend immer von der letzten Zelle des Verbundes aus.

Dem möchte ich widersprechen. Wenn B8:C8 eine verbundene Zelle ist und doppelt geklickt wird, denn erhält man
Target.Cells(1).Offset(,-1) = Zelle A8
Target.Cells(1).Offset(,0) = Zelle B8
Target.Cells(1).Offset(,1) = Zelle D8
Target.Cells(2).Offset(,-1) = Zelle B8
Target.Cells(2).Offset(,0) = Zelle C8
Target.Cells(2).Offset(,1) = Zelle D8
Bei der ersten Zelle verhält es sich also nicht so, wie man es erwarten würde. Die zweite Zelle hingegen verhält sich erwartungsgemäß. Very strange.

Es ist übrigens egal, ob man Target(1), Target(1,1), Target.Cells(1) oder Target.Cells(1,1) verwendet. Aber das überrascht mich nicht.

Was ich übrigens noch mit nehme: bisher bin ich davon ausgegangen, dass man bei dem Doppelklick-Event nicht auf die Anzahl der betroffenen Zellen achten mass, denn man kann ja immer nur auf einer Zelle doppelklicken. An Merged-Cells habe ich dabei nicht gedacht!

[snb]

Ergo: verzichte auf verbundene Zellen.

[HKindler]

Hi snb,

da rennst du bei mir offene Türen ein. Das ist genau das, was ich auch immer predige...

[snb]

Ist dem TS gewidmet, nicht @HK.

[Oegli]

Ich nochmal...ich habe da noch 2 Probleme für die ich keine Lösung finde.

Zum einen möchte ich die gesamte Tabelle per Blattschutz schützen.
Das klappt auch soweit nur kann man trotzdem die Buttons drücken und die Makros werden ausgeführt.
Wie werden die Buttons durch den Blattschutz mitgeschützt?


Das zweite Problem ist, dass ich gerne die Möglichkeit hätte durch einen Rechtsklick auf die Buttons die Mengen oberhalb wieder zu reduzieren.
Ich habe mich manchmal verklickt und musste die Summen oberhalb händisch korrigieren.
Das wäre durch einen Rechtsklick wesentlich komfortabler.


Vielen Dank schon einmal!

[HKindler]

Hi,

wenn du auf die Buttons verzichtest und mein (oder snbs) Worksheet_BeforeDoubleClick() verwendest, kannst du das ganz leicht auf Worksheet_BeforeRightClick() kopieren und das Plus-Zeichen durch ein Minus-Zeichen ersetzen.

[Oegli]

Habe ich gemacht.

Klappt gut, nur funktioniert es nicht bei "Kategorie D".
Keine Ahnung warum...

[HKindler]

Hi,

du hast in der Zelle bei Kategorie D "Kategorie D " stehen, also am Ende noch ein Leerzeichen.

[Oegli]

Ich fasse es nicht...hab ewig nach dem Fehler gesucht und dann ist es ein Leerzeichen...

Du bist mein Held!!!

Vielen Dank!

[Oegli]

Code:

Option Explicit
Private Sub Workbook_Open()
    Tabelle1.Cells(6, Application.Match(CLng(Date), Tabelle1.Rows(6), 0)).Select
End Sub

Der Code gehört in "DieseArbeitsmappe"!!

Ich werde verrückt...

Jetzt funktioniert dieser Code nicht mehr und ich erhalte einen Laufzeitfehler 13 beim Öffnen.
Bis zum Wegfall der Buttons hatte dieser wunderbar funktioniert.

Danke vorab!