Active Cell setzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Active Cell setzen
von: Jan
Geschrieben am: 04.12.2003 09:04:12

Hallo,

möchte über folgendes Makro eine Zeile oberhalb eines Formularbuttons einfügen.
Wie setze ich jetzt den Wert für die ActiveCell, so daß dieser dem Wert entspricht, den die MsgBox zurückliefert?


Sub Makro1(Zeile_einfuegen)
    With ActiveSheet.Shapes("Button 1")
             MsgBox .TopLeftCell.Address
         End With
???????
    Selection.EntireRow.Insert
End Sub

Bild


Betrifft: AW: Active Cell setzen
von: Nike
Geschrieben am: 04.12.2003 09:11:30

Hi,


Sub Makro1(Zeile_einfuegen)
    With ActiveSheet.Shapes("Button 1")
         range(.TopLeftCell.Addresslocal).select
    End With
    Selection.EntireRow.Insert
End Sub


Oh nein, hab ich tatsächlich nen Code mit Select geschrieben? ;-)
Ok, es geht auch anders:

Sub Makro1(Zeile_einfuegen)
    With ActiveSheet.Shapes("Button 1")
         Range(.TopLeftCell.AddressLocal).EntireRow.Insert
    End With
End Sub


Ahh, da geht's einem schon besser ;-)

Bye

Nike


Bild


Betrifft: AW: Active Cell setzen
von: Jan
Geschrieben am: 04.12.2003 09:51:15

Hallo Nike,

erstmal danke für die Hilfe.

Ich erhalte aber jetzt den Laufzeitfehler 'Das Element mit dem angegebenen Namen wurde nicht gefunden'.

Im Testmodus wird dabei auf die Zeile

With ActiveSheet.Shapes("Button 1")

verwiesen.

Reicht für den Formularbutton nicht eine entsprechende Beschriftung 'Button 1'. Muß ich diese noch woanders zuweisen?

Gruß

Jan


Bild


Betrifft: AW: Active Cell setzen
von: Nike
Geschrieben am: 04.12.2003 09:56:52

Hi,
ich weiß ja nicht, auf was für nen Button du dich da beziehst,
ich hab einfach nur den von Dir vorgelegten Code optimiert ;-)

Die Beschriftung wird auf keinen Fall reichen,
denn das ist nur eine Eigenschaft (caption) des Objektes Button...

Bye

Nike


Bild


Betrifft: AW: Active Cell setzen
von: Jan
Geschrieben am: 04.12.2003 10:20:35

Hallo Nike,

jetzt klappt es, habe den einfachen Formularbutton jetzt durch einen Button erzeugt über die Steuerelement-Toolbox ersetzt.

Danke nochmal.

Gruß

Jan


Bild

Beiträge aus den Excel-Beispielen zum Thema " Active Cell setzen"