Office: Fehlermeldung

Hallo,

hab hier ein Problem mit nem Makro. Wenn ich das Makro per Button ausführe kommt die Fehlermeldung "Die Select-Methode des Range-Objektes" konnte nicht ausgeführt werden, obwohl das Makro funzt wenn ich es ohne button ausführe.

Hier das Makro:

Sub CSVerzeugen_Click()

Workbooks.Add
Range("A1").Select
ActiveCell.FormulaR1C1 = "Standort_ID"
Range("B3").Select
ActiveCell.FormulaR1C1 = "SITE_NAME"
Range("B4").Select
ActiveCell.FormulaR1C1 = "STREET"
Range("B5").Select
ActiveCell.FormulaR1C1 = "ZIP"
Range("B6").Select
ActiveCell.FormulaR1C1 = "CITY"
Range("B7").Select
ActiveCell.FormulaR1C1 = "LOCATION_COMMENT"
Range("B8").Select
ActiveCell.FormulaR1C1 = "SALUTATION"
Range("B9").Select
ActiveCell.FormulaR1C1 = "FIRST_NAME"
Range("B10").Select
ActiveCell.FormulaR1C1 = "LAST_NAME"
Range("B11").Select
ActiveCell.FormulaR1C1 = "CONTACT_PHONE"
Range("B12").Select
ActiveCell.FormulaR1C1 = "GEBAEUDE"
Range("B13").Select
ActiveCell.FormulaR1C1 = "STOCKWERK"
Range("B14").Select
ActiveCell.FormulaR1C1 = "RAUM"
Range("B16").Select
ActiveCell.FormulaR1C1 = "VKST-NAME"
Range("B17").Select
ActiveCell.FormulaR1C1 = "STRASSE"
Range("B18").Select
ActiveCell.FormulaR1C1 = "PLZ"
Range("B19").Select
ActiveCell.FormulaR1C1 = "ORT"
Range("B20").Select
ActiveCell.FormulaR1C1 = "VKST"
Range("B21").Select
ActiveCell.FormulaR1C1 = "G-Telefon"
Range("B22").Select
ActiveCell.FormulaR1C1 = "Routername"
Range("B23").Select
ActiveCell.FormulaR1C1 = "LAN-IP"
Range("B24").Select
ActiveCell.FormulaR1C1 = "LAN-MASK"
Range("B25").Select
ActiveCell.FormulaR1C1 = "Hintertuer"
Range("B26").Select
ActiveCell.FormulaR1C1 = "Loopback13"
Range("B27").Select
ActiveCell.FormulaR1C1 = "MSN1"
Range("B28").Select
ActiveCell.FormulaR1C1 = "MSN2"
Range("B29").Select
ActiveCell.FormulaR1C1 = "MSN3"
Range("B30").Select
ActiveCell.FormulaR1C1 = "BANDBREITE"
Columns("B:B").EntireColumn.AutoFit

End Sub

Vielen Dank und Grüsse
haifischjunge

 

Hallo!

Schmeiß zunächst mal die ganzen "Select" raus.
Das bremst nur und lässt den Bildschirm flackern.
Teste mal dies:

Code:

Sub CSVerzeugen_Click()
Workbooks.Add
With ActiveWorkbook.Sheets(1)
.Range("A1") = "Standort_ID"
.Range("B3") = "SITE_NAME"
.Range("B4") = "STREET"
.Range("B5") = "ZIP"
.Range("B6") = "CITY"
.Range("B7") = "LOCATION_COMMENT"
.Range("B8") = "SALUTATION"
.Range("B9") = "FIRST_NAME"
.Range("B10") = "LAST_NAME"
.Range("B11") = "CONTACT_PHONE"
.Range("B12") = "GEBAEUDE"
.Range("B13") = "STOCKWERK"
.Range("B14") = "RAUM"
.Range("B16") = "VKST-NAME"
.Range("B17") = "STRASSE"
.Range("B18") = "PLZ"
.Range("B19") = "ORT"
.Range("B20") = "VKST"
.Range("B21") = "G-Telefon"
.Range("B22") = "Routername"
.Range("B23") = "LAN-IP"
.Range("B24") = "LAN-MASK"
.Range("B25") = "Hintertuer"
.Range("B26") = "Loopback13"
.Range("B27") = "MSN1"
.Range("B28") = "MSN2"
.Range("B29") = "MSN3"
.Range("B30") = "BANDBREITE"
.Columns(2).AutoFit
End With
End Sub

 

Klasse! funzt super!

Vielen Dank