Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button zum Füllen von Zellen

Button zum Füllen von Zellen
13.02.2018 11:09:16
Zellen
Hallo zusammen,
für eine Tabelle benötige ich einen Button, welcher die beiden Zellen NEBEN dem Button füllt (Button öffnet UserForm - Werte in UserForm eintragen - Werte werde in Zellen übertragen).
Wichtig dabei ist, dass der Bezug zwischen dem Button und den beiden Zellen realtiv zueinander sein muss. Hintergrund: es ist möglich, dass die Zeile innerhalb der Tabelle kopiert und irgendwo anders wieder eingefügt wird. Dann soll der relative Bezug natürlich ebenso funktionieren...
Hat jemand eine Idee wie ich den relativen Bezug hinbekomme?
Vielen Dank und viele Grüße
Martin

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button zum Füllen von Zellen
13.02.2018 12:43:25
Zellen
Hallo Martin,
Der Button hat die Eigenschaft "Top". Da ich nicht weiß was für ein Button du benutzt kann ich es nicht genauer angeben.
Aber aus der Eigenschaft "Top" und den Zeilenhöhen kannst du die Zeile des Buttons berechnen.
Das Beispiel geht davon aus, dass dein Button ein Shape ist. Nach dem Kopieren ist es immer das letzte Shape im Blatt.
Oben = ActiveSheet.Shapes.Item(ActiveSheet.Shapes.Count).Top
Zeilensumme = 0
n = 1
While Zeilensumme
Gruß,
Rainer
AW: Button zum Füllen von Zellen
13.02.2018 12:55:02
Zellen
Hallo Rainer,
so ganz verstehe ich das noch nicht, wenn alle Zeilen die gleich Höhe haben.
Ich hatte an eine einfache "Schaltfläche (Formularsteuerelement)" gedacht...
Viele Grüße
Martin
Anzeige
AW: Button zum Füllen von Zellen
13.02.2018 13:37:56
Zellen
Hallo Martin,
Woher soll ich denn wissen, was du für Zeilenhöhen hast?
Vielleicht ist es aus deinem Code ersichtlich, vielleicht hast du auch einen anderen Weg um schon beim Kopieren zu wissen welche Zeile es ist.
Ich bin kein "VBA-Profi" und ohne Beispieldatei kann ich sowas nicht wissen.
Mein Code-Beispiel funktioniert auch mit Formularsteuerelementen, habe es probiert.
Du musst dir nur noch ein Array anlegen, wo du vermerkst welche Schaltfläche in welcher Zeile ist.
Ich habe jetzt mal ein wenig probiert. Es geht aber nur mit "Shapes", nicht mit Formularelementen.
Der Button zum Kopieren bekommt ein Makro. Diese Zuweisung nimmt er mit beim Kopieren. 
Sub Schaltfläche_Klicken()
ButtonText = Application.Caller
End Sub
Aus diesem Text kannst du über die letzten Zeichen (je nach dem wie oft du kopierst sind es 1,2,3 oder mehr) die Button-Nummer ermitteln. Über das zuvor erwähnte Array weißt du dann die Zeilennummer.
Gruß,
Rainer
Anzeige
AW: Button zum Füllen von Zellen
13.02.2018 15:21:57
Zellen
Hallo Martin,
hier nun ein Lösungsvorschlag. Die Buttons müssen Shapes sein. Der Standardname ist "Rechteck 1", beim kopieren zählt Excel das dann hoch.
https://www.herber.de/bbs/user/119770.xlsm
Gruß, Rainer
AW: Button zum Füllen von Zellen
13.02.2018 14:50:23
Zellen
Hallo Werner,
im Prinzip ist das genau was ich suche, aber der relative Bezug ist noch nicht gegeben.
Ich habe in der Datei die Zeile 3 und 4 mal nach unten kopiert. Klickt man dann auf die untere Schaltfläche, werden die Zellen neben der oberen Schaltfläche überschrieben (also ein absoluter Bezug in die Zellen H3 und I3).
https://www.herber.de/bbs/user/119768.xlsm
Viele Grüße
Martin
Anzeige
bei mir nicht. o.w.T.
13.02.2018 15:06:56
Werner
AW: bei mir nicht. o.w.T.
13.02.2018 15:26:17
Rainer
Hallo Werner,
ich habe es auch getestet (Office 2016) und auch bei mir füllt er immer die Zeile neben dem ersten Button.
Wenn ich Zeilen kopiere, dann haben alle neuen Buttons wieder den Namen "Schaltfläche 10".
Gruß,
Rainer
AW: bei mir nicht. o.w.T.
13.02.2018 15:41:09
Werner
Hallo Rainer,
kann dir auch nichts anderes sagen, bei mir, Office 365, geht es.
Zeile 3 auswählen, rechte Maustaste, kopieren, Zeile 25 auswählen, rechte Maustaste, einfügen alles. Beschriftung des Buttons bleibt gleich, wenn ich ihn mit Recht anklicke sehe ich im Auswahlfenster, dass die Button Nummer hochgezählt wurde.
Gruß Werner
AW: bei mir nicht. o.w.T.
13.02.2018 15:58:34
Rainer
Hallo Werner,
ich nehme alles zurück...
Die Mappe von Martin hat das "merkwürdige Benehmen":
https://www.herber.de/bbs/user/119768.xlsm
Deine Mappe funktioniert:
https://www.herber.de/bbs/user/119764.xlsm
Ich habe aber die Änderung nicht finden können. Das kann nur Martin aufklären denke ich.
Gruß,
Rainer
Anzeige
AW: bei mir nicht. o.w.T.
13.02.2018 16:14:57
Werner
Hallo Rainer,
vielleicht liegt es ja an der Excel Version?
Ich habe die Datei von Martin eben ausprobiert. Bei mir das gleiche Verhalten, Zellbezug bleibt bestehen, es wird kein neuer Button angelegt.
Ich habe dann mit Martins Version folgendes gemacht. Button gelöscht und neu angelegt, Makro aaa dem Button zugewiesen. Datei gespeichert und geschlossen. Neu geöffnet - es funktioniert.
Gruß Werner
AW: bei mir nicht. o.w.T.
13.02.2018 16:44:41
Rainer
Hallo Werner,
gute Frage, nächste Frage...
Aber ich habe es auch schon erlebt, dass unter 2010 (Haben wir auf Arbeit noch zum Teil, weil es da noch vereinzelt Windows XP gibt) Excelmappen mit ActiveX-Elementen komplett amok laufen und abstürzen. Mit Shape-Buttons geht es wunderbar. Ansonsten habe ich nichts geändert. Seitdem bevorzuge ich die Shape-Variante für meine Projekte.
Gruß,
Rainer
Anzeige
AW: bei mir nicht. o.w.T.
14.02.2018 09:36:39
Martin
Kurioser Weise funktioniert bei mit auch die Mappe 119764.xlsm nicht, obwohl die Schaltfläche nach dem Kopieren hochgezählt wird.
Auch bei mir funktioniert es nur, wenn ich die Schaltfläche neu anlegen...vielleicht muss ich das Kopieren der Zeile einfach verbieten und stattdessen eine neue Zeile per Makro einfügen. Es scheint ja irgendwie mit Excel zusammen zu hängen :-(
Vielen Dank und viele Grüße
Martin
Grundsätzlich...
14.02.2018 10:42:19
Werner
Hallo Martin,
....würde ich das sowieso nicht über Button erledigen. Wenn die dauernd kopiert werden dann ist dein Blatt irgendwann mit Buttons zugekleistert und du wirst nicht mehr viel Freude beim Arbeiten mit dem Blatt haben.
Warum nutzt du nicht das Doppelklick-Ereignis zum Starten der UserForm?
Gruß Werner
Anzeige
AW: Grundsätzlich...
14.02.2018 11:15:19
Martin
Hallo Werner,
die Button-Lösung ist in der Tat ein Behelfslösung. Ursprünglich wollte ich ein UserForm öffnen nachdem ich eine Zelle geändert habe. Das habe ich mit "Worksheet_SelectionChange" probiert. Dabei gab es aber zwei Probleme:
1) Das UserForm wurde geöffnet sobald ich die Zelle angeklickt habe. Ich möchte aber erst den Inhalt der Zelle ändern und dann auf Basis des Inhaltes ein bestimmtes UserForm (1 bis 8) öffnen.
2) Das Rechenblatt kann mit Hilfe eines anderen Makros individuell aufgebaut werden, d.h. die veränderbar Zelle kann an einer beliebigen Stelle/Zeile in dem Rechenblatt vorkommen. Mittels "Worksheet_SelectionChange" kann ich nur einen absolute Bezug herstellen...daher die ganze Sache mit dem relativen Bezug.
Falls Ihr dazu eine bessere Lösung habt wäre das top...andernfalls ist die aktuelle Behelfslösung dann erstmal ok.
Euch vielen Dank und viele Grüße
Martin
Anzeige
AW: Grundsätzlich...
14.02.2018 11:20:18
Werner
Hallo Karin,
wenn du willst, dass sich die UserForm bei Zelländerung öffnet, dann ist das Selection Change auch das falsche Ereignis, dafür gibt es doch das Change Event des Blattes.
Ansonsten bitte mal eine Beispielmappe mit Beschreibung was du willst.
Gruß Werner
AW: Grundsätzlich...
14.02.2018 11:46:59
Martin
Ja, bei dem "Change Event" müsste ich aber vorab wissen in welchen Zellen die "veränderbare Zelle" ist (absoluter Bezug). Das weis ich aber erst nachdem das Rechenblatt durch das andere Makro aufgebaut wurde.
Die Originaldatei kann ich schlecht schicken...muss gucken, wann ich eine Beispieldatei erstellen kann.
Danke!
Anzeige
AW: Grundsätzlich...
14.02.2018 12:03:07
Martin
Eine weitere kleine Fragen:
Wisst Ihr wie ich nach diesem Befehl zum Übertragen in die Zelle ein .NumberFormat hinzugefügt bekomme?
Range(rngButtonZelle).Offset(0, 1) = Me.TextBox1
Das hier hat leider nicht funktioniert:
    Range(rngButtonZelle).Offset(0, 1).Select
ActiveCell.Value = Me.TextBox1
ActiveCell.HorizontalAlignment = xlCenter
ActiveCell.NumberFormat = "0.000 ""kN"""
Vielen Dank und viele Grüße
Martin
AW: Grundsätzlich...
14.02.2018 12:26:10
Werner
Hallo Martin,
VBA-Profi und dann Select?
so: 
rngButtonZelle.Offset(0, 1) = Me.TextBox1
rngButtonZelle.Offset(0, 1).HorizontalAlignment = xlCenter
rngButtonZelle.Offset(0, 1).NumberFormat = "0.000 ""kN"""
oder so: 
With rngButtonZelle.Offset(0, 1)
.Value = Me.TextBox1
.HorizontalAlignment = xlCenter
.NumberFormat = "0.000 ""kN"""
End With
Gruß Werner
Anzeige
AW: Grundsätzlich...
14.02.2018 12:54:10
Martin
Pure Verzweifelung :-) Aber das "Profi" ist auch versehentlich reingerutscht (eher "gut").
Leider bekomme ich mit "rngButtonZelle.Offset..." ein Fehler beim Kompilieren.
Mit "Range(rngButtonZelle).Offset..." ist der weg, aber das NumberFormat wird nicht ausgeführt.
AW: Grundsätzlich...
14.02.2018 13:14:55
Martin
Es lag an der Formatierung. So funktioniert es:
    With Range(rngButtonZelle).Offset(0, 1)
.Value = CDbl(Me.TextBox1)
.HorizontalAlignment = xlCenter
.NumberFormat = "0.000 ""kN"""
End With

118 Forumthreads zu ähnlichen Themen

Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Anzeige
Optionsbutton in Userform abhängig von Zelle
Zelle

Hallo,
ich habe drei Optionsbuttons in einer Userform. Alle gehören zu einer Gruppe.
es kann also immer nur eine Option gewählt sein.
Beim Aufruf der Userform soll eine Option in Abhängigkeit des Wertes in Zelle A1
"voreingestellt" werden.
Dazu habe ich im Userform_Initializ...
26.01.2009 12:04:00
Thread-ID: 1043821
3 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Anzeige
TAB-Sprung von Zelle in Sheet zu CommandButton
Zelle

Hallo Excel-Experten,
mir stellt sich folgendes Problem:
Ich habe ein Worksheet, das in den Spalten A-G (in nur einer Zeile) Werte enthält.
Rechts neben diesen Werten befindet sich ein CommandButton.
Nun springe ich per Tab durch die jeweiligen Zellen und tippe händisch Werte ei...
10.11.2009 13:51:22
Thread-ID: 1115852
3 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:38:19
Thread-ID: 1125901
2 Beiträge
Über Button in Zelle Hyperlink einfügen
Ingo

Hallo zusammen,
Ich möchte bei Betätigung eines Button in der makierten Zelle einen Hyperlink einfügen. Bei der Betätigung des Buttons soll sich ein Dialog öffnen in dem ich den Pfad für den Hyperlink angeben kann.
Hat jemand hiermit Erfahrung und hätte einen Tipp? Die Makroaufzeichnug...
22.04.2010 11:40:05
Thread-ID: 1153267
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
2
11
5
2
4
7
1
1
4
4
3
2
2
2
5
11
4
2
8
3
12
1
2