Hallo,
Bitte hilf mir jemand. Ich sitz seit zwei Tagen an einem Code, mit dem ich immer die letzte Zeile im Bereich D:AF einer Excel-Tabelle (verschiedene Namen, z.b. K12_090415) in eine andere Tabelle (Dehnungen, Sheet Dehnungen) in den Bereich B:AD importieren will. Ich will ausserdem noch den Namen des Tabellenblatts in Tabelle K12_090415 in der letzten freien Zeile in Spalte A in Tabelle Dehnungen Sheet Dehnungen importieren.
Soweit so gut. Das klappt auch. Allerdings gibt es ein Problem, sobald die Werte im Betrag größer als 1 sind. Bei den Werten kleiner als 1 kopiert er die Werte ohne Probleme, aber die Werte größer 1 werden mit 1.000.000 multipliziert.
Kann mir da jemand helfen? bitte?
ich hab eigentlich so gut wie gar keine Ahnung von VBA und ich hab mir diesen Code bis jetzt zusammengeflickt. Wahrscheinlich ist er ziemlich dämlich, aber immerhin funktioniert er (jedenfalls fast so wie er soll).
Sub Import_von_Daten
Dim varname As Variant
Dim lgLastRow As Long
Dim nam As String
varname = Application.GetOpenFilename(„Excel Dateien,*.xls“)
If varname = False Then Exit Sub
Application.EnableEvents = False
Workbooks.Open varname
With ActiveWorkbook
nam = ActiveSheet.Name
lgLastRow = Range(„D65536:AF65536“).End(xlUp).Row
Range(„D“ & lgLastRow & „:AF“ & lgLastRow).Select
Selection.Copy
Application.DisplayAlerts = False
.Close False
End With
With ActiveWorkbook
Application.EnableEvents = True
letzte = Range(„b65536:AD65536“).End(xlUp).Rows
Range(„B:AD“).Select
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
ActiveSheet.PasteSpecial Format:=„Text“, Link:=False, DisplayAsIcon:=False
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = nam
End With
End Sub
Ich hoffe ihr könnt mir helfen. Ich dreh langsam durch damit Wink
Vielen Dank
Gruß Marcha