CommandButton in Zeile erzeugen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] CommandButton in Zeile erzeugen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Paulus2408
Newbie
Newbie

Anmeldedatum: 03.09.2008
Beiträge: 5

Verfasst am: 04.09.2008, 15:41

Hi!

Ich habe folgendes Problem:

Ich habe eine Tabelle in der ich einen Commandbutton haben. Wenn ich diesen betätige, wird eine neue Zeile erstellt. Nun will ich aber auch via VBA einen CommandButton in eben dieser zeile erstellen.

Ist das mit VBA möglich? Wenn ja, wie?

Mit freundlichem Gruß
Peter Bornemann

Paulus2408
Newbie
Newbie

Anmeldedatum: 03.09.2008
Beiträge: 5

Verfasst am: 04.09.2008, 16:29

Ich habe es mittlerweile hinbekommen, den Button in der Zeile zu erstellen.

Hier ist mein Code für den CommandButton:

Code:

Private Sub CommandButton1_Click()
Dim i As Long
Dim temp As Long

i = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(i, 1) = "4"
i = i - 1
Loop
temp = i + 1

Rows(temp).Insert (xlShiftDown)

Range("B" & temp).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="105.xls", TextToDisplay:="LINK"
Selection.Font.ColorIndex = 0
Selection.Font.Underline = xlUnderlineStyleNone

Set a = Range("A" & temp)

With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=a.Left + 50, Top:=a.Top, Width:=10, _
Height:=10).Object
End With

End Sub

Allerdings wird sowohl der Link zu der Datei, als auch der neue Button nur bei jedem zweiten Ausführen des Buttons erzeugt! Kann mir da jemand helfen? Ich habe die Datei mal angehangen!

test.xls

Beschreibung:

Download

Dateiname:

test.xls

Dateigröße:

25.5 KB

Heruntergeladen:

19 mal

Paulus2408
Newbie
Newbie

Anmeldedatum: 03.09.2008
Beiträge: 5

Verfasst am: 04.09.2008, 16:57

Ich habe festgestellt, dass er im zweiten Durchlauf immer bei

Code:

Rows(temp).Insert (xlShiftDown)

den Durchlauf beendet.

Kann sich einer von Euch vorstellen, woran das liegt?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Wie kann ich eine Zeile als konstante...	RO1959UN	Microsoft Excel Hilfe	4	25.12.2008, 17:30
	2. neue zeile einfügen wenn darüber text	enzo	Microsoft Excel Hilfe	2	27.11.2008, 12:46
	Zeile suchen, wenn gefunden zwei Dati...	cyRus-tC	Microsoft Excel Hilfe	2	22.11.2008, 16:11
	Tabelle nach Seitenumbruch in 2. Zeile	OmaWetterwachs	Microsoft Word Hilfe	0	19.11.2008, 09:43
	komplette Zeile ausblenden, wenn Tabe...	enzo	Microsoft Excel Hilfe	22	18.11.2008, 12:17

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de