title image


Smiley Re: Daten per Userform in verschiedene Excel-Sheets
Hallo!



probier mal folgendes aus:



Erstelle eine Userform mit

- 1 Combobox

- 1 Textbox

Füge bei ein paar von den Worksheets das Präfixzeichen # vor den Namen.



Füge in die Userform folgenden Code ein:

Dim wsh_Ziel As Worksheet



Private Sub TextBox1_Change()

wsh_Ziel.Range("a1") = TextBox1

End Sub



Private Sub UserForm_Initialize()

For Each Wsh In ActiveWorkbook.Worksheets

If Left(Wsh.Name, 1) = "#" Then

ComboBox1.AddItem Wsh.Name

End If

Next

ComboBox1.ListIndex = 0

Call SetWsh

End Sub



Private Sub ComboBox1_Change()

Call SetWsh

End Sub



Sub SetWsh()

Set wsh_Ziel = ActiveWorkbook.Worksheets(ComboBox1.Text)

wsh_Ziel.Activate ' nicht unbedingt erforderlich

End Sub



Und probier ihn mal aus.



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: