03.07.2015, 16:52
Hallo,
habe mal wieder ein Problem :P
Ich speicher per openfilename den Dateinamen einener Exceldatei in einer variablen, am Anfang des Makros, am Ende möchte ich dann mithilfe dieser Variablen die Exceldatei activieren, da ich zwischenzeitlich in ein anderes Excelfile geswitcht bin. Dann will ich in dem File von Spalte 5 ab in Zeile 5 bis zum letzten Eintrag alles kopieren was großer 0 ist, das gleich in Spalte 13 ab Zeile 5, die Beziehung muss dabei immer erhalten bleiben, alslo er muss gleichzeitig den Inhalt von 5, 5 und 5, 23 jeweils in das Exelfile "S - Tool.xls" der Reihe nach kopieren.
Habe versucht das mit einer For Schleife zu machen, aber die klappt so nicht. Es fängt schon damit an, das Excel offenbar den Dateinamen in der Variablen nicht erkennt, also das activieren des Exelfiles klappt schon nicht. Wenn ich das weglasse, kommt der nächste Fehler bei der For Schleife. Offenbar gibts da einige Syntaxfehler?
Wäre euch sehr verbunden, wenn da mal wer über die For Schleife schauen könnte.
Danke!
End Sub
habe mal wieder ein Problem :P
Ich speicher per openfilename den Dateinamen einener Exceldatei in einer variablen, am Anfang des Makros, am Ende möchte ich dann mithilfe dieser Variablen die Exceldatei activieren, da ich zwischenzeitlich in ein anderes Excelfile geswitcht bin. Dann will ich in dem File von Spalte 5 ab in Zeile 5 bis zum letzten Eintrag alles kopieren was großer 0 ist, das gleich in Spalte 13 ab Zeile 5, die Beziehung muss dabei immer erhalten bleiben, alslo er muss gleichzeitig den Inhalt von 5, 5 und 5, 23 jeweils in das Exelfile "S - Tool.xls" der Reihe nach kopieren.
Habe versucht das mit einer For Schleife zu machen, aber die klappt so nicht. Es fängt schon damit an, das Excel offenbar den Dateinamen in der Variablen nicht erkennt, also das activieren des Exelfiles klappt schon nicht. Wenn ich das weglasse, kommt der nächste Fehler bei der For Schleife. Offenbar gibts da einige Syntaxfehler?
Wäre euch sehr verbunden, wenn da mal wer über die For Schleife schauen könnte.
Danke!
End Sub
Code:
' **** Sverweis ****
Dim I As Integer
Dim varName As Variant
Dim Name As String
Dim Filename As String
Dim Pfad As String
Dim lz As Long
Dim Sachnummer As String
ChDrive ("Z:\")
'ChDir ("C:\DVD\")
ChDir (Sheets("Daten").Cells(3, 1))
Filename = Application.GetOpenFilename(, , "Universal Magazinbelegung auswählen")
Filename = Dir(Filename)
Pfad = CurDir
' **** Neuer Import ****
Dim Zeile5 As Integer
Dim Zeile13 As Integer
Workbooks(Filename).Sheets("Siemens").Activate
letzte = .Cells(Rows.Count, 5).End(xlUp).Row
I = 2
c = 5
For d = Cells(c, 5) To Cells(letzte, 5)
If .Cells(c, 5) <> "" Then
ThisWorkbook.Sheets("Siemens").Cells(c, 5) = Zeile5
ThisWorkbook.Sheets("Siemens").Cells(c, 13) = Zeile13
Workbooks("S - Tool.xls").Sheets("Sverweis-Auswahl").Cells(I, 5) = Zeile5
Workbooks("S - Tool.xls").Sheets("Sverweis-Auswahl").Cells(I, 6) = Zeile13
c = c + 1
I = I + 1
Else
c = c + 1
End If
Next d
End Sub