Kopierte Zellen mit VBA
06.01.2013 22:22:32
Golem
ich komme momentan mit einem Problem nicht weiter ( ich stehe total auf dem Schlauch ).
Mit folgenden Code kopiere ich aus einer geschlossenen Datei Spaltenwerte in ein anderes Tabellenblatt:
Private Sub CommandButton1_Click()
' Werte aus geschlossenen Dateien einlesen
Dim strVerzeichnis1 As String
Dim strVerzeichnis2 As String
Dim strDatei1 As String
Dim strDatei2 As String
Dim strTabellenblatt As String
Dim StrTyp As String
strVerzeichnis1 = "='C:\Dokumente und Einstellungen\Werner\Desktop\"
strVerzeichnis2 = "Zahlungen ET_" & Range("G6").Value
strDatei1 = "\[Zahlungen ET " & Range("G6").Value
strDatei2 = "_Maske mit Basiszinsen]"
strTabellenblatt = "Basiszinsen'!$B$11:$B$500"
StrTyp = "*.*"
'mit welcher Dateiendung soll geöffnet werden.....
StrTyp = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlsx; *.xlsm)," & "*.xls; *. _
xlsx; *.xlsm")
'Wert in Zielzelle "Zahlung Whn 01" schreiben
With ActiveWorkbook.Worksheets("Verzugszins Whn 01").Range("AE22:AE511")
'Adresse der auszulesenden Zelle
.Formula = strVerzeichnis1 & strVerzeichnis2 & strDatei1 & strDatei2 & strTabellenblatt
'In festen Wert umwandeln, um die Verknüpfung aufzuheben
.Value = .Value
End With
End Sub
Datumswerte werden aus der Spalte B11:B500 in die Spalte AE22:AE511 kopiert.
Funktioniert einwandfrei.
Wen ich im Code einen Spaltenbereich angebe,
strTabellenblatt = "Basiszinsen'!$B$11:$C$500"
nach
With ActiveWorkbook.Worksheets("Verzugszins Whn 01").Range("AE22:AG511"),
dann wird in den Zellen der Spalten AE22:AG511 nur #WERT! angezeigt.
Es sollten aber in der Spalte AE Datumswerte und in der Spalte AG Prozentwerte stehen.
Kann mir jemand helfen?
Schöne Grüße
Golem