|
Autor
|
Thema: Problem mit Auswah über VB in Tabelle2 (1203 mal gelesen)
|
de cadhund
Mitglied
Konstrukteure
   Beiträge: 138
Registriert: 08.12.2004 SW Office 2006 SP3.1
|
erstellt am: 20. Sep. 2005 07:54  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, wir haben folgende Zeilen in VB geschrieben: Private Sub OptionButton2_Click() If True Then Sheets("Tabelle2").Select
Range("F32").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("F33").Select
End If End Sub und dann hängt das ganze bei "Range("F32").Select" aber wenn wir die Befehle als Makro laufen lassen funktionierts einwandfrei. Wie krieg ich das auf dem Optionbutton zum laufen?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BJ
Mitglied
PLM System Administrator
Beiträge: 488
Registriert: 20.12.2002 SolidEdge V15, SP14
SolidEdge V16, SP8
SolidEdge V17, SP2
---
Win XP Prof., SP 2
DELL Precision WorkStation 340
2,26 GHz, 1GB RAM
NVIDIA Quadro4 900 XGL, 128MB
|
erstellt am: 20. Sep. 2005 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für de cadhund 
versuch' mal so (not tested!) Private Sub OptionButton2_Click()
ActiveWorkbook.Sheets("Tabelle2").Select
ActiveSheet.Range("F32").Select
ActiveCell.FormulaR1C1 = "=RC[-1]"
ActiveSheet.Range("F33").Select
End Sub Die If-Anweisung kannst dir sparen. Gruß,
BJ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BloodyMess
Mitglied
Applicationingenieur
Beiträge: 604
Registriert: 06.06.2002 AutoCAD Map 3D 2005
Win XP pro
|
erstellt am: 20. Sep. 2005 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für de cadhund
Hallo, da Excel seine Instanz kennt, brauchst Du in VBA kein vorangestelltes Objekt. In VB schon.
Hol Dir mit 'GetObject' oder lege Dir mit 'CreateObject' ein Objekt an. Dieses stelltst Du dann vor deine Methoden.
Zum Beispiel 'oExcel.Sheets("Tabelle2").Select'.
Dann sollte es funktionieren. Grüssle TP ------------------
 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening
Moderator
Arbeiter ツ
    
Beiträge: 2897
Registriert: 06.07.2001 Das Innerste geäussert
und aufs Äusserste verinnerlicht
|
erstellt am: 20. Sep. 2005 19:19 <-- editieren / zitieren --> Unities abgeben: Nur für de cadhund
die Selectanweisung kann man sich sparen (ich weiss ich habe sie selber noch in vielen Makros drinnen -halt recorder ;-) ) Code:
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Tabelle2").[F32] = "=RC[-1]" 'Zelle F32 wird mit dem Wert aus Zelle Links überschieben
End Sub
[Diese Nachricht wurde von Thomas Harmening am 20. Sep. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BloodyMess
Mitglied
Applicationingenieur
Beiträge: 604
Registriert: 06.06.2002 AutoCAD Map 3D 2005
Win XP pro
|
erstellt am: 21. Sep. 2005 06:42 <-- editieren / zitieren --> Unities abgeben: Nur für de cadhund
|
Foren auf CAD.de (alle Foren)
| 
