Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button mit gleicher Funktion

Button mit gleicher Funktion
13.12.2022 14:51:41
Alain
Hallo Zusammen
Ich möchte mit einem Button einen Wert in der darunter liegenden Zelle kopieren und den in ein anderes Blatt in die Zelle C11 übertragen.
Mit der aufzeichnen Funktion kann ich es für einen Button erstellen, jedoch müsste ich das z.B für 30 Buttons machen.
Funktioniert das mit EINEM Button, den ich dann mit der immer gleichen Funktion kopiere?
Der Button müsste also selber wissen, in welcher Zelle er liegt und dann den darunterliegenden Wert kopieren.
Beispieldatei: ww.herber.de/bbs/user/156701.xlsm

Sub Benchmark1()
' Benchmark1 Makro
Range("A7").Select
Selection.Copy
Sheets("Gebäude_1").Select
Range("C11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Danke im Voraus für Eure Hilfe!
lg Alain

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button mit gleicher Funktion
13.12.2022 15:11:58
Rudi
Hallo,
Der Button müsste also selber wissen, in welcher Zelle er liegt
dafür gibt es die TopLeftCell-Eigenschaft.
Welche Buttons hast du? Formular oder ActiveX?
Wie ist das jeweilige Ziel definiert? oder immer das gleiche?
Beispiel für Formularbutton:

Sub ButtonCode()
Dim rQuelle As Range
Set rQuelle = ActiveSheet.Shapes(Application.Caller).TopLeftCell
rQuelle.Copy
Sheets("Gebäude_1").Range("C11").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Gruß
Rudi
AW: Button mit gleicher Funktion
13.12.2022 17:22:11
Alain
Hallo Rudi
Danke für deine schnelle Reaktion auf mein Problem und dein Lösungsvorschlag!
Hier meine Antworten zu deinen Fragen:
Hallo,
Der Button müsste also selber wissen, in welcher Zelle er liegt
dafür gibt es die TopLeftCell-Eigenschaft.
Welche Buttons hast du? Formular oder ActiveX?
ich habe Formularbuttons ausgewählt
Wie ist das jeweilige Ziel definiert? oder immer das gleiche?
Das Ziel ist immer das gleiche
Der Code funktioniert und kopiert den Wert in der Zelle des Buttons. Bei mir liegt nicht der Wert in der gleichen Zelle wie der Button selber sondern eine Zelle darunter(z.B Button liegt in D4 und der zu kopierende Wert in D5) zu kopieren.
Jedoch funktioniert das mit TopDownCell nicht :-)
Gibt es hierfür einen entsprechende Anpassung?

Sub ButtonCode()
Dim rQuelle As Range
Set rQuelle = ActiveSheet.Shapes(Application.Caller).TopDownCell
rQuelle.Copy
Sheets("Gebäude_1").Range("C11").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Anzeige
AW: Button mit gleicher Funktion
13.12.2022 17:42:25
Yal
Hallo Alain,
es ist schon mal schwierig, wenn man es nicht beschreiben kann. Eigentlich wäre die Beschreibung so:
Zustand:
_ ich bin in einer Zelle, also die Zelle, die aktiv ist
Aktion:
_ Beim Klick auf etwas, in dem Fall einem Button, soll
_ _ der Wert in der Zelle darunter kopiert werden
_ _ in der Zelle Gebäude!C11 kopiert werden
Damit wären wir extren nah am Ziel:

Sub ButtonCode()
ActiveCell.Offset(1, 0) = ActiveCell.Value 'füge den Wert der aktiven Zelle in der Zelle "eins nach unten"
Sheets("Gebäude_1").Range("C11") = ActiveCell.Value 'füge den Wert der aktiven Zelle in der Zelle Gebäude1!C11
End Sub
Breche immer deine Beschreibung in "Zustand" und "Aktion", und zwar aus Computer-Sicht herunter:
_ was weisst der Computer über der aktuelle Stand (Startpunkt)
_ was soll der Computer machen (Wege zur Endpunkt)
VG
Yal
Anzeige
AW: Button mit gleicher Funktion
13.12.2022 22:01:37
Rudi
Hallo,
dann

Set rQuelle = ActiveSheet.Shapes(Application.Caller).TopLeftCell.OffSet(1)
Gruß
Rudi
AW: Button mit gleicher Funktion
14.12.2022 08:11:31
Alain
Vielen Dank für die wertvolle Hilfe!
Mein letztes Problem konnte nun gelöst werden.
Der Code funktioniert wie gewünscht mit dem Zusatz von Rudi:

Set rQuelle = ActiveSheet.Shapes(Application.Caller).TopLeftCell.OffSet(1)
Herzliche Grüsse
Alain
AW: Button mit gleicher Funktion
13.12.2022 18:12:45
GerdL
Hallo Alain!

Sub Unit()
Sheets("Gebäude_1").Range("C11") = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(1, 0).Value
End Sub
Gruß Gerd
Anzeige
AW: Button mit gleicher Funktion
14.12.2022 08:13:17
Alain
Hoi Gerd
Danke dir auch für deine Hilfe!
lg Alain

304 Forumthreads zu ähnlichen Themen

Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Anzeige
Button mit Filterfunktion erstellen! aber wie ?
Richi

Hallo Zusammen,
wie kann man im Excel ein Button erstellen, das wenn man drauf klickt, ein Bestimter Filter ausgeführt wird ?
06.02.2009 09:35:00
Thread-ID: 1047622
2 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Anzeige
Zeilen einfügen mit Formeln per CommandButton
Tina

Hallo zusammen
Wiedermal brauche ich eure Hilfe bei einem Problem. Ich möchte per CommandButton automatisch Zeilen oberhalb des Buttons einfügen. Dabei soll die Zeile inkl. Formeln eingefügt werden.
Dazu habe ich bisher folgenden Code: Private Sub CommandButton1_Click() Dim lngInsertRo...
26.04.2012 08:14:44
Thread-ID: 1260980
3 Beiträge
Button mit Speicher-Funktion funktioniert nicht.
Basti

Schönen guten Abend,
ich habe in einem Arbeitsblatt ein CommandButton eingefügt und in VBA folgendes hinterlegt:
Private Sub Speichern_Click() Speichern4 End Sub
Private Sub Speichern4 () Dim p_Pfad4 As String Dim p_filename4 As String p_Pfad4 = "J:\Basti\Kosten\Reisekosten\Akt...
29.08.2012 18:28:12
Thread-ID: 1276847
3 Beiträge
Schaltbuttonfunktion einfügen
Hans

Hallo Forum,
nach langer Zeit melde ich mich mal wieder bei euch um ein Problem zu lösen.
Ich habe in meiner Rechnungstabelle ein kleines Add On installiert (reno20.exe)welches auf Klick auf den Schaltbutton eine neue Rechnungsnummer in der Tabelle erstellt. Geht soweit ganz gut.
N...
23.08.2013 20:35:08
Thread-ID: 1328179
4 Beiträge
2 Button mit Zeile einfügen
marcus

Hallo Exceler,
ich möchte (je nach Lage) 2 oder 3 Buttons, mit der Funktion "Neue Zeile einfügen", in verschiedenen Zeilen oder Bereichen einfügen mit VBA. Der erste ist kein Problem, da die Zeile immer die gleiche ist, an der er einfügen muss. Jedoch die darauf folgenden kann ich nicht kon...
22.07.2014 14:29:03
Thread-ID: 1371590
2 Beiträge
Button mit Datumsfunktion
Addi
Hallo Zusammen,
ich möchte in einem Excel-File einen Button anlegen, der bei Betätigung das die genaue Uhrzeit, ggf. auch das Datum in die Zelle reinschreibt, in der ich gerade drin stehe.
Kann man das mit VBA realisieren?
Vielen Dank für Eure Hilfe.
Viele Grüße
Addi
03.10.2014 16:48:20
Thread-ID: 1384689
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
1
3
1
2
2
3
1
4
9
8
1
5
1
6
7
7
16
8
1
3
2
2
4