Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

CommandButton mit 2. Klick in andere Zelle

Forumthread: CommandButton mit 2. Klick in andere Zelle

CommandButton mit 2. Klick in andere Zelle
20.11.2017 17:33:24
Dieter(Drummer)
Guten Tag Spezialisten,
mit diesem Code geht bei Klick der Commandbutton1 in Zelle D7 und wird an die Zellgröße angepasst. Das funktioniert.
Code: 

Private Sub CommandButton1_Click()
Dim pos1 As Range
Set pos1 = Range("d7")
With CommandButton1
.Height = pos1.Height
.Width = pos1.Width
.Top = pos1.Top
.Left = pos1.Left
End With
End Sub

Wie nuss der Code lauten, damit ich mit dem nächsten (2ten) Klick auf den Button1, der Button1 in eine andere Zelle springt und ebenfalls dort an die Zellgröße angepasst wird?
Habe einige Versuche gemacht, aber bekomme es nicht hin.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 17:41:02
onur 

Dim pos1 As Range
Dim pos2 As Range
Set pos1 = Range("d7")
Set pos2 = Range("?")' hier der andere Range
If CommandButton1.Top = pos1.Top then
Der neue Code für pos usw.
Else
Der alte Code für pos usw
End If
Rest vom Code

AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 18:01:02
Dieter(Drummer)
Danke Onur für Rückmeldung,
den Code habe ich jetzt so, aber er bleibt hängen bei " .Height = pos2.Height", mit der Angabe "Fehler beim kompilieren ...".
Code: 
rivate Sub CommandButton1_Click()
Dim pos1 As Range
Dim pos2 As Range
Set pos1 = Range("d7")
Set pos2 = Range("a2") ' hier der andere Range
If CommandButton1.Top = pos1.Top Then
.Height = pos2.Height
.Width = pos1.Width
.Top = pos2.Top
.Left = pos2.Left
'Der neue Code für pos usw.
Else
.Height = pos1.Height
.Width = pos1.Width
.Top = pos1.Top
.Left = pos1.Left
'Der alte Code für pos usw
End If
End Sub
Was habe ich da falsch? Deine Infos umzusetzen, ist nicht so einfach für mich.
Gruß, Dieter(Drummer)
Anzeige
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 18:14:13
Luschi
Hallo Dieter,
so wird ein Schu draus: 

Private Sub CommandButton1_Click()
Dim pos1 As Range
Dim pos2 As Range
Set pos1 = Range("d7")
Set pos2 = Range("a2") ' hier der andere Range
With CommandButton1
If .Top = pos1.Top Then
.Height = pos2.Height
.Width = pos1.Width
.Top = pos2.Top
.Left = pos2.Left
Else
.Height = pos1.Height
.Width = pos1.Width
.Top = pos1.Top
.Left = pos1.Left
End If
End With
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 18:27:34
Dieter(Drummer)
Danke Luschi,
es funktioniert, bis auf den Sprung in a2. Der Button geht in a2 aber er passt sich nicht an die Zellgröße an. Kannst du da sehen warum?
Gruß, Dieter(Drummer)
funktioniert doch ... owT
20.11.2017 18:33:26
Matthias
AW: funktioniert doch ... owT
20.11.2017 18:40:50
Dieter(Drummer)
Hallo Matthias,
hier ist meine Testdatei. Das hin und her springen fubktioniert. In a2 wird der Button aber NICHT an die Zellgröße angepasst. Ich sehe nicht warum das so ist. Evtl. siehst du, woran es liegt.
Gruß, Dieter(Drummer)
Datei: https://www.herber.de/bbs/user/117796.xlsm
Anzeige
mach mal ne 2 aus der 1
20.11.2017 18:44:00
Matthias
With CommandButton1
If .Top = pos1.Top Then
.Height = pos2.Height
.Width = pos1.Width '?
.Top = pos2.Top
.Left = pos2.Left
AW: mach mal ne 2 aus der 1
20.11.2017 18:49:52
Dieter(Drummer)
Danke Matthias,
jetzt gehts. Da hätte ich auch drauf kommen können ... Sorry ...
Hätte da noch ein Bitte. Ist es auch möglich, dass der 2. Sprung (hier a2) nicht festgelegt wird, sondern frei mit Klick auf irgendeine Zelle frei gewählt werden kann?
Das wäre dann das non plus ultra.
Wär tolle, wenn du da noch eine Lösung hast.
Gruß, Dieter(Drummer)
Anzeige
die Lösung hat doch UweD schon vorgeschlagen ...
20.11.2017 18:54:22
Matthias
Hallo
Set pos1 = Range("d7")
Set pos2 = ActiveCell ' hier der andere Range
Gruß Matthias
AW: die Lösung hat doch UweD schon vorgeschlagen ...
20.11.2017 19:01:09
Dieter(Drummer)
Danke Matthias,
das funktioniert perfekt. Den Hinweis von Uwe konnte ich nicht sofort umsetzen. Man lernt nie aus ...
Danke und einen schönen Abend.
Gruß, Dieter(Drummer)
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 19:29:02
onur 

Private Sub CommandButton1_Click()
Dim pos1 As Range
Dim pos2 As Range
Set pos1 = Range("d7")
Set pos2 = Range("a2") ' hier der andere Range
With CommandButton1
If .Top = pos1.Top Then
.Height = pos2.Height
.Width = pos2.Width
.Top = pos2.Top
.Left = pos2.Left
Else
.Height = pos1.Height
.Width = pos1.Width
.Top = pos1.Top
.Left = pos1.Left
End If
End With
End Sub

Anzeige
verschlafen ;-) ... owT
20.11.2017 19:31:10
Matthias
AW: verschlafen ;-) ... owT
20.11.2017 19:36:47
onur
Shit happens. :-)
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 17:41:39
UweD
Hallo
kannst du nicht erst die Wunschzelle anclicken und dann den button?
dann mit activecell arbeiten
LG UweD
Anzeige
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 18:02:25
Dieter(Drummer)
Danke UweD,
ich würde es gerne in einem Code machen wollen.
Gruß, Dieter(Drummer)
AW: CommandButton mit 2. Klick in andere Zelle
20.11.2017 19:05:23
Dieter(Drummer)
Danke UweD,
mir Hinweis von Matthias konnte ich dein Idee umsetzen und jetzt geht es prima.
Gruß und Danke, Dieter(Drummer)
Hier ist mein jetziger Code: 
'Herber: von Luschi, MathiasL und UweD am 20.11.2017 17:14:13
Private Sub CommandButton1_Click()
Dim pos1 As Range
Dim pos2 As Range
Set pos1 = Range("d7")
Set pos2 = ActiveCell ' hier der andere Range in aktivierte Zelle. Hinweis von UweD
With CommandButton1
If .Top = pos1.Top Then
.Height = pos2.Height
.Width = pos2.Width
.Top = pos2.Top
.Left = pos2.Left
Else
.Height = pos1.Height
.Width = pos1.Width
.Top = pos1.Top
.Left = pos1.Left
End If
End With
End Sub

Anzeige
..Springer auf D7...Spiel noch nicht fertig? kT
20.11.2017 18:02:38
robert

Forumthreads zu verwandten Themen

Schreibschutz per Button ein und ausschalten
mikey20333


Hallo
ich würde gerne einen Schalter in Excel integrieren, der mir immer
wenn ich darauf klicke von Rot off auf Grün on mit einer passwortabfrage
den schreibschutz des aktuellen tabellenblattes ein bzw. ausschaltet.
ist das möglich, welche schaltfläche soll ich denn in Exce...
14.09.2013 11:50:00
Thread-ID: 1330784
4 Beiträge
Bild im Kommentar per VBA Problem
Jürgen

Hallo Leute
Ich hab seit 3 Jahren einen Coder mit dem ich Automatisch ein Bild in ein Kommentarfeld einfüge und an einen fixen Ort abspeichern lasse.
Seit ich Office 365 habe geht das aber nicht mehr er macht mir ein Kommentar Speichert das auch aber das Bild wird nicht eingefügt sonder...
11.01.2017 15:12:24
Thread-ID: 1534425
5 Beiträge
Symbol und Menüleiste ab 2007 erstellen
Gast
Hallo an alle Excel Fachleute
ich habe einige fachliche Fragen an Ecxcel Profis wo ich nicht weiter weiss.  CommandBars und Menüband ab Excel 2007
Im alten 2003 konnte ich mir alle Menüleisten und Symbolleisten auflisten und per VBA neue Menüpunkte oder Buttons einfügen....
13.03.2021 12:37:05
Thread-ID: 1819720
3 Beiträge
Anzeige
Sortieren einer Tabelle mit VBA und Blattschutz
Gekk1
Hallo!
Ich möchte gerne eine über "Einfügen" erzeugte Tabelle nach einer beliebigen Spalte sortieren. Es muss aber auch der ursprüngliche Zustand wiederhergestellt werden können. Normalerweise macht man das ja über eine Hilfsspalte in der man festgelegte Zahlen reinschreibt und danach wieder nac...
17.11.2023 18:37:49
Thread-ID: 1954418
1 Beitrag
2 gleiche Funktionen mit einem Makro
dslsauger

Hallo Leute,
ich hoffe als absoluter Newbie hier Hilfe zu bekommen.
Ich habe ein Problem mit einem Excel-Makro. Es geht darum, daß ich eine Funktion, die bereits eingebaut war für eine zweite Funktion mitnutzen wollte. Leider weiß ich nicht wie ich die einfach dranhängen kann. Wäre nett...
09.11.2008 21:50:00
Thread-ID: 1023112
1 Beitrag
Bedingte Formatierungen
jorgen

Liebe VBA Profis.
noch immer kämpfe ich mit dem Thema bedingte Formatierungen in einer Soll/-Ist Übersicht. Zu diesem Thema habe ich schon super Beiträge bekommen, mein Problem hat das leider noch nicht ganz gelöst.
Der angefragte Makro dient dazu, immer zusammengehörige zellen hervorz...
19.05.2008 19:45:52
Thread-ID: 978772
2 Beiträge
Funktion Zeilen auslesen
Manne

Hallo,
ich arbeite mich gerade etwas in VBA ein. Ich denke für mich ist es am einfachsten einfache Dinge mit praktischem Bezug zu implementieren. Habe dafür aus einem vorhandenen Sheet begonnen Makros mit Button zu erstellen. Jetzt möchte ich dieses allerdings automatisieren, und weiß nicht...
15.03.2014 12:24:31
Thread-ID: 1353601
4 Beiträge
Anzeige
Funktion Zeilen auslesen
Manne

Hallo,
ich arbeite mich gerade etwas in VBA ein. Ich denke für mich ist es am einfachsten einfache Dinge mit praktischem Bezug zu implementieren. Habe dafür aus einem vorhandenen Sheet begonnen Makros mit Button zu erstellen. Jetzt möchte ich dieses allerdings automatisieren, und weiß nicht...
15.03.2014 12:28:54
Thread-ID: 1353603
1 Beitrag
VBA Code per Button/userform bearbeiten
Markus

Hallo Forengemeinde und Excelspezialisten....
Ich sitze schon den ganzen Tag an meinem neuen Projekt und weiß nicht mehr weiter... :(
Ich habe eine Exceltabelle geschrieben, zum erfassen und versenden von Stückzahlen... Dort habe ich einen Button eingefügt, der bestimmte Bereiche der...
01.04.2014 21:37:38
Thread-ID: 1355742
4 Beiträge
Tabellenblätter in VBA "ansprechen"
Lars
Mahlzeit zusammen,
ich bearbeite aktuell eine Exceldatei in welcher im Tabellenblatt 1 ("SAP_Grundlage") die SAP-Grundlage über das Excel Add-In aktualisiert und innerhalb der Liste gespeichert wird. Da dies öfters geschieht, werden über mein Makro zuerst im 2. Tabellenblatt ("Daten") die alten...
14.11.2022 12:30:25
Thread-ID: 1906940
5 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum