Hilfe beim Code
02.10.2006 22:17:37
Thomas
Sheets(ComboBox1.Text).Activate
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Trim(TextBox1.Value)
ActiveSheet.Visible = True
Sheets("Spielnummern").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C1") = Trim(TextBox1.Value)
Sheets(TextBox1.Text).Activate
das ist der Code wo ich ein Blatt copiere, den Namen des copierten blatt im Blatt Spielnummern in celle c1 einfüge. Bis dahin Ok, aber ich brauche von den copierten Blatt von der Spalte A1 bis A200 alle Daten außer die leeren Cellen
und zwar im Blatt Spielnummern in Spalte c2-?.
Kann mir da jemand helfen?
Gruß Thomas