UserForm / Range selektieren
18.01.2004 10:27:50
Erich M.
ich habe eine UserForm mit der ich einen bestimmten Bereich
mit der F2-Taste bearbeiten möchte. Nun scheitere ich daran,
dass die betreffende Range nicht selektiert wird, damit
der Befehl läuft:
' **************************************************************
' Modul: Forum Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Private Sub CommandButton2_Click()
Dim myName As String
Dim myRange As Object 'Range
Dim zelle2 As Object
Dim Tb(1 To 15) As Worksheet
If ComboBox1.Text = "" Then MsgBox "Bitte Datei 1 auswählen.", 48, "Hinweis": Exit Sub
If ComboBox9.Text <> "" Then Set Tb(1) = Workbooks(ComboBox1.Text).Worksheets(ComboBox9.Text) Else MsgBox "Bitte Tabellenblatt 1 auswählen.", 48, "Hinweis": Exit Sub
myName = ComboBox9.Text
myRange = RefEdit1
Worksheets(myName).Activate
Range(myRange).Select
'For Each zelle2 In Selection
'SendKeys "{F2}", True
'SendKeys "{ENTER}", True
'Next zelle2
'Range("A1").Select
Unload Me
End Sub
Code eingefügt mit: Excel Code Jeanie
Ich habe mit select, ohne select und sonstiges probiert -
es klappt einfach nicht. Irgendwie hängt es daran, dass die
im RefEdit1 Fenster ausgewählten Zellen nicht aktiviert werden.
Geht das vielleicht bei RefEdit nicht wie bei ComboBox ??
Besten Dank für eine Hilfe!
mfg
Erich