Paste Spezial
01.10.2003 10:48:09
junny
hab folgendes Makro aufgezeichnet (Tabelle wird geöffnet, kopiert, geschlossen und im aktiven Blatt eingefügt)
Problem: Ich krieg paste spezial nicht unter, denn ich will nur ausgefüllte Zellen einlesen, habe teilweise Formeln im aktiven Blatt die nicht überschrieben werden dürfen.
Sub Power()
Dim Zeile As Integer
Dim Spalte As Integer
Zeile = 1
Spalte = 1
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\vw\Eigene Dateien\Frau Berndt.xls"
Cells.Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Zeile = InputBox("Nr. Einfügezeile angeben:")
'If Box = "" Then Exit Sub
Cells(Zeile, Spalte).Select
ActiveSheet.PasteSpecial Format:="Unicode-Text", Link:=False, _
DisplayAsIcon:=False
Range("A5").Select
Application.DisplayAlerts = True
End Sub
Bin Dankbar für jeden Rat.
Noch was, wie kann ich die letzte aktive Zelle wieder anspringen?
Danke schonmal, gruss junny