VBA-Erweiterungsformel
27.06.2005 14:50:09
Frank
könnte mit bitte bei unten genannten Code jemand behilflich sein.
Ich möchte nach Erstellung des neuen Tabellenblattes
das der Inhalt aus dem Tabellenblatt "Formular" komplett
inkl. verschiedener Button's ins neue Tabellenblatt kopiert wird.
Und das dann in A1 der Inhalt von den Comboboxen 1-4 eingefügt wird
mit dem Vorwort: Preisliste
Private Sub CommandButton1_Click()
Sheets("Adressen").Unprotect Password:="Fxxx"
Sheets("Adressen").[A1000] = ComboBox1.Value
Sheets("Adressen").[B1000] = ComboBox2.Value
Sheets("Adressen").[C1000] = ComboBox3.Value
Sheets("Adressen").[D1000] = ComboBox4.Value
Sheets("Adressen").[E1000] = ComboBox5.Value
Sheets("Adressen").Select
Range("A2:K1000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2:K1000").Select
Sheets("Adressen").Protect Password:="Fxxx"
Set mysheet = Sheets.Add
mysheet.Name = UserForm9.ComboBox6.Value
Unload UserForm9
End Sub
Gruss
Frank