Hilfe!
23.09.2004 09:23:25
Andreas
kann sich bitte jemand mein Makro anschauen. Hier importiere ich eine Textdatei in ein bestimmtes von mir vorgegebenes Tabellenblatt. Nun habe ich das Problem das er einige Zahlen in Excel nicht erkennt und ich mit denen nicht weiter arbeiten kann. Mir wurde geraten alle Zahlen mit 1 zu multiplizieren. Kann mir da jemand weiterhelfen? Es würde reichen wenn alle Zahlen aus dem Bereich B20:E70 mit 1 multipliziert würden.
Vielen Dank
Andreas
Sub Apo_Feb()
Dim wks As Worksheet
Dim strNam As String
strNam = InputBox("Name des neuen Blatts?", "Blattname", "Tabelle")
If strNam = "" Then Exit Sub
On Error Resume Next
Set wks = Worksheets(strNam)
If Err.Number <> 0 Then
Set wks = Worksheets.Add(Worksheets(1))
wks.Name = strNam
Else
MsgBox ("name existiert bereist")
End If
On Error Resume Next
Dim fileToOpen$
ChDir "F:\"
fileToOpen = Application.GetOpenFilename("Alle Dateien (*.*), *.*")
If fileToOpen <> "" Then
Workbooks.OpenText FileName:=fileToOpen, _
Origin:=xlWindows, StartRow:= _
1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
Columns("C:C").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
End If
Cells.Select
Selection.Copy
Windows("Auswertung_Kosten.xls").Activate
Sheets("strNam").Select
Cells.Select
ActiveSheet.Paste
Range("C1").Select
Cells.Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Cells.Select
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Sheets("tabelle5").Select
End Sub