Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche in bestimmter Zelle positionieren

Schaltfläche in bestimmter Zelle positionieren
10.05.2007 15:25:42
uli
Hallo
Ich möchte gerne per Makro automatisch in mehreren Zellen Befehlschaltflächen erstellen lassen.
Dabei habe ich zwei Probleme:
1. Wie kann ich der Befehlschaltfläche eine genaue Zelle als Position angeben? (habs mal mit dem Makrorecorder versucht. Dieser positioniert allerdings mit top und left)
2. Wie kann ich jeder Befehlschaltfläche anschließend (auch automatisch) ein weiteres Makro zuweisen (Jedesmal das gleiche, was ausgeführt werden soll, wenn man irgendeine der Schlatflächen drückt).
Hoffe, ihr könnt mir weiterhelfen
Gruß
Uli

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche in bestimmter Zelle positionieren
10.05.2007 15:45:00
Rudi
Hallo,

Sub tt()
Dim myBtn As Object, i As Integer
For i = 3 To 9 Step 2
Set myBtn = ActiveSheet.Buttons.Add(1, 1, 1, 1)
With myBtn
.Top = Cells(i, 3).Top
.Left = Cells(i, 3).Left
.Height = Cells(i, 3).Height
.Width = Cells(i, 3).Width
.Caption = "Test " & i
.OnAction = "Makro2"
End With
Next i
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Schaltfläche in bestimmter Zelle positionieren
10.05.2007 15:54:00
uli
Hallo Rudi,
genau das löst mein Problem. Hatte schon die Befürchtung mich unverständlich ausgedrückt zu haben. Vielen Dank an dich!!!. Nur eine Frage am Rande, was bedeutet die (1,1,1,1) hinter "Add"?
Gruß
Uli

Anzeige
AW: Schaltfläche in bestimmter Zelle positionieren
10.05.2007 16:10:44
Rudi
Hallo,
die Parameter müssen sein. left, top, width, height
Ich hätte auch

Sub tt()
Dim myBtn As Object, i As Integer
For i = 3 To 9 Step 2
Set myBtn = ActiveSheet.Buttons.Add(Cells(i, 3).Left, Cells(i, 3).Top, Cells(i, 3).Width,  _
Cells(i, 3).Height)
With myBtn
.Caption = "Test " & i
.OnAction = "Makro2"
End With
Next i
End Sub


schreiben können.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Schaltfläche in bestimmter Zelle positionieren
11.05.2007 01:00:00
uli
zu früh gefreut...
Leider gibt es doch noch ein Problem.
Beim Klicken der Befehlschaltfläche soll ja ein Makro geöffnet werden (immer das Selbe, egal welcher Button).
Jetzt ist mir allerdings aufgefallen, dass das Makro, welches nach dem Drücken der Schaltfläche ausgeführt werden soll, einen Zellenwert (Nachname, Vorname) benutzen soll, der neben der jeweiligen Befehlschaltfläche, die gedrückt worden ist, steht.
Weiß jemand, wie ich diesen Namen selektieren kann?
Gruß
Uli

Anzeige
AW: Schaltfläche in bestimmter Zelle positionieren
11.05.2007 03:53:00
Mustafa
Hallo Uli,
deklariere I als Globale Variable mit "Public i as Integer"
Dann kannst du in deinem Makro auf den Wert in I zugreifen und so die aktuelle Zeile mit wählen.
In deinem Makro musst du dann nur noch den wert der Spalte eingeben.
zB
Cells(i,2)
Damit hast du den wert der links neben dem Button steht.
Rückmeldung obs Hilft wäre nett.
Viele Grüße aus Köln.

AW: Schaltfläche in bestimmter Zelle positionieren
11.05.2007 09:17:00
Uli
Hallo Mustafa,
Vielen Dank für deine Antwort.
Leider verstehe ich noch nicht genau was du meinst.
Ich habe zwei Makros.
Makro1 erstellt mir automatisch die Buttons in Spalte1 in (fast) jeder Zelle.
Beim Drücken eines dieser Buttons wird Makro2 ausgeführt.
Makro2 benötigt zum Berechnen einiger Werte die Zeilennummer des Buttons
Wo soll ich die Variable I deklarieren?
Makro1 erstellt, wie du am Code von Rudi sehen kannst, die Buttons über eine Schleife. Wenn ich mir die Position innerhalb der Schleife merke, wird sie jedesmal überschrieben, so daß sich doch I dann nur die Zeile des letzten Buttons merkt, oder?
In Makro2 wird es schon zu spät sein. Denn wenn Makro2 ausgeführt wird, kann ja nicht mehr nachvollzogen werden, welcher Button das Ausführen initiiert hat.
Gruß
Uli

Anzeige
AW: Schaltfläche in bestimmter Zelle positionieren
11.05.2007 12:34:51
Rudi
Hallo,
versuch mal:

Sub tt()
Dim myBtn As Object, i As Integer
For i = 3 To 9 Step 2
Set myBtn = ActiveSheet.Buttons.Add(Cells(i, 3).Left, Cells(i, 3).Top, _
Cells(i, 3).Width, Cells(i, 3).Height)
With myBtn
.Name = "Button_" & (i - 1) / 2
.Caption = "Test " & (i - 1) / 2
.OnAction = "Makro2"
End With
Next i
End Sub




Sub makro2()
MsgBox ActiveSheet.Shapes(Application.Caller).Name
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Schaltfläche in bestimmter Zelle positionieren
11.05.2007 16:30:00
uli
Hallo Rudi,
toll, funktioniert super.
Hab schon den ganzen Morgen über dem Problem gegrübelt. Mit meinen 10-20 Befehlen die ich bei VBA kenne, bin ich aber nicht weit gekommen. Vielen Dank nochmal!
Gruß
Uli

249 Forumthreads zu ähnlichen Themen

Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Anzeige
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
Anzeige
Zellen bestimmter Werte in ListBox listen
Harry

Wie können aus einer Ecxel-Tabelle (z. B.: A1-E150) nur die Zeilen in eine List- oder ComboBox gelistet werden, bei denen in der Spalte E der Wert (z.B.) 2 oder größerer ist?
Alle Zellen in Spalte E1 bis E150 haben einen numerischen Inhalt.
Besten Dank für jede Hilfe Harry
13.01.2009 13:51:23
Thread-ID: 1039228
10 Beiträge
MIN-Wert von bestimmten Zellen auslesen
bestimmten

Hallo zusammen,
ich habe folgendes Problem, welches sich erstmal gar nicht schwierig anhört, nur bei der Umsetzung hapert es noch ein bißchen.
Ich habe in meiner Excel Tabelle bspw... folgendes stehen
Zeile 12: I12=test, J12=4
Zeile 14: C14=test, D14=3, H14=test, I14=6
Zeile...
14.01.2009 11:17:03
Thread-ID: 1039535
10 Beiträge
Zelle mit bestimmtem Inhalt finden
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich in ein Dialogfeld ein beliebiges Wort eingebe und Excel dann in einer ganz bestimmten Spalte nach diesem Wort sucht. Die erste Zelle, in der das Wort gefunden wurde sollte dann aktiviert werden.
Ich würde mich freuen, wenn mir jemand weiterhe...
11.02.2009 18:44:00
Thread-ID: 1049734
6 Beiträge
Wert aus einer bestimmten Zelle finden
Karsten

Hallo,
In Spalte A beginnt bei mir in A2 das Kalenderdatum:
Mo, 16.3.
Di, 17.3.
Mi, 18.3.
Do, 19.3.
Fr, 20.3.
usw.
Ich möchte mit einem Makrobefehl, das Datum finden, was ich in a1 eintippe. Also, wenn ich in A1 z.B.19.3. eintippe, sollte die aktive Zelle auf A5...
15.03.2009 09:32:14
Thread-ID: 1060339
5 Beiträge
Bedingte Formatierung-Rahmen für bestimmte Zellen
Peter

Hallo zusammen,
ich möchte in einem Tabellenbereich alle Zellen, die eine Zahl enthalten und daher nicht leer sind, mit einem "Rahmen" versehen.
Ich versuche es z.Zt. mit "bedingter Formatierung" und dann "Formel ist" = Istzahl. Leider funktioniert das nicht. Vielleicht hat jemand von E...
20.03.2009 13:51:29
Thread-ID: 1062187
3 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
2
2
4
6
4
9
9
5
4
2
8
5
5
5
12
2
2
1
16
6
5
2
8
4
2