Excel VBA Probme mit CommandButtons

[excel_seppl]

Hallo liebes Forum,

ich kämpfe seit 2 Tagen mit einem Problem mit CommandButtons.

Was ich erreichen will:

Jeweils in der ersten Spalte sollen zwisch alle Zeilen (von 11 bis ca 80) ein kleiner Button sein. Genau mittig zwischen die beiden Zellen der ersten Spalte. Darauf wird ein kleines "+" zu sehen sein und es soll beim Klick eine neue Spalte darüber eingefügt werden.
Soweit kein Problem, nur soll nach dem einfügen auch ein identischer Button entstehen, mit der gleichen Funktion da wo jetzt einer fehlt. Die Höhe der Zeilen ist immer unterschiedlich, je nach eingefügtem Text.
Hat hier jemand Ideen oder gar eine komplette Lösung. Vielen Dank schonmal!

Grüße Seb

[Käpt'n Blaubär]

Hallo,

Jeweils in der ersten Spalte sollen zwisch alle Zeilen (von 11 bis ca 80) ein kleiner Button sein.
Genau mittig zwischen die beiden Zellen der ersten Spalte.

Zuerst solltest Du mal mit Dir selbst in's Reine kommen und mal rausfinden, was Zeilen und was Spalten sind.
Dann kannst Du gerne Deine Frage neu formuliert hier einstellen. So wie das jetzt dasteht, wird das nämlich nichts.

1. ... sollen zwisch alle Zeilen ein kleiner Button sein
da sind Gitternetzlinien ... wie willst Du da was reinschieben?

2. ... mittig zwischen die beiden Zellen der ersten Spalte
in einer Spalte gibt es keine zwei Zellen

... und 3. ... ohne Datei wird das nach diesen Vorgesprächen wohl eher auch nichts werden, fürchte ich

[excel_seppl]

Hallo Käptn,
danke erstmal, dass du dich der Thematik annehmen willst. Ich verstehe leider deine Punkte nicht so ganz. Ich versuche nochmal auf die einzelnen Aussagen einzugehen.

1. ... sollen zwisch alle Zeilen ein kleiner Button sein
da sind Gitternetzlinien ... wie willst Du da was reinschieben?

  -  Zwischen allen Zellen der ersten Spalte A (von Zeile 11 bis Zeile 80)
    A          B
1__  __l______
2__  __l______
   bei den freien Stellen in Spalte A
    
2. ... mittig zwischen die beiden Zellen der ersten Spalte
in einer Spalte gibt es keine zwei Zellen

  -  Jeweils auf die Trennlinie der zwei Zellen, so dass deutlich wird, dass hier eine neue Zeile entstehen soll. Meiner Ansicht nach hat eine Spalte der Rechenleistung entsprechend, und theoretisch unendlich viele Zellen

... und 3. ... ohne Datei wird das nach diesen Vorgesprächen wohl eher auch nichts werden, fürchte ich

  -  Ich kann heute Abend ein Bild senden wie ich mir das vorstelle.

[Käpt'n Blaubär]

Hallo,

es ist durch Deine Erklärung kein bischen deutlicher geworden.
Außerdem bat ich um eine Datei, nicht um einen Picasso.

Meiner Ansicht nach hat eine Spalte der Rechenleistung entsprechend, und theoretisch unendlich viele Zellen
Na ja, was soll ich dazu sagen ... Dann hast Du eben eine andere Meinung als ich sie habe.
Nennt sich wohl neudeutsch: Alternative Wahrheit

[excel_seppl]

Woher kommt denn der Ärger? Ich wollte tatsächlich nur sehr höflich fragen. Wenn das nicht korrekt ist mit der Spalte dann tut es mir Leid, vielleicht können Sie mir ja einfach mal sagen wo da der Fehler liegt. Es ist ja anscheinend eine fehlerhafte Formulierung denn aus umgangssprachlichem Verständnis heraus ist doch zu erkennen was ich damit meine. Die Spalte A bildet doch mit allen Zeilen 1 bis ... eine Zelle ab, oder ist das falsch? Demnach bilden Spalte A und Zeile 1 eine Zelle usw.
Ich kann heute Abend auch eine Dateil anbieten und werde dies tun, nur werden Sie sehen, dass ein Screenshot die angesprochene Problematik ebenso verdeutlicht.

Grüße Seb

[Käpt'n Blaubär]

Hallo,

in Foren Dutzt man sich gewöhnlich.

Wenn Du meinst, ich wollte Dich ärgern, dann liegst Du aber mächtig daneben.
Aber na gut, wenn wir nicht die gleiche Sprache sprechen, dann ziehe ich mich zurück.
Vielleicht versteht ja ein anderer Helfer besser, was Dein Problem ist.

[BoskoBiati]

Hi,

um den Ärger komplett zu machen: Ich halte das Ganze für hanebüchenen Unsinn!!! Da genügt ein Button und den Cursor auf eine Zelle gesetzt, damit kann man nach Lust und Laune über oder unter der aktiven Zelle eine Zeile einfügen. Keine Gefriemel um Buttons auf Gitternetzlinien zu setzen, keine Tausend Buttons und entsprechende Codes!

[RPP63]

Moin!
Und gänzlich ohne Ärger braucht es nur die rechte Maustaste und die Bestätigung einer MsgBox.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge > 1 Or Target.Column > 1 Then Exit Sub
If MsgBox("Neue Zeile oberhalb einfügen?", vbYesNo + vbQuestion) = vbYes Then _
  Target.EntireRow.Insert
Cancel = True
End Sub

Gruß Ralf

[Storax]

Das kann man doch allein mit Bordmitteln erledigen

[RPP63]

Man kann vieles! ;)
Mein unfassbar kluges Makro halbiert doch mal glatt die Anzahl der Mausklicks. :18: