Folgendes Makro soll im aktiven Workbook ein Bereich löschen: Klappt
Dann aus einer wählbaren Datei excel dati die Daten per cut und paste kopieren
mach es leider nicht
Stelle wo es hängen bleibt habe ich markiert.
Sub Datenimport()
Sheets("Daten").Select
Range("B5:H23").Select
Selection.ClearContents
Dim StDat As String
StDat = Application.GetOpenFilename("Exceldatei (*.xls), *.xls")
'auf die Variable wird der Dateinamen geschrieben
If StDat = "Falsch" Then Exit Sub
Sheets("Meßdaten").Select <-------Hier bleibts hängen
Range("B7:H25").Select
Selection.Copy
Windows("Energieberechnung.xls").Activate
Range("B5").Select
ActiveSheet.Paste
End Sub