ich bekomme per Mail ein Excel Tabelle, diese wird aus der Mail heraus geöffnet.
Sie dient dem Import in SAP - nach dem speichern an einen bestimmten Ort.
Leider enthält die Tabelle eine String, der manchmal in Spalte A, beliebige Zeile, steht. Dieser gehört aber immer in Spalte B.
Also möchte ich ein kurze Makro drüberlaufen lassen, welches diesen Umstand korrigiert und das File dann direkt als csv. Datei an den bestimmten Ort speichert.
Folgenden Code habe ich, der funktioniert leider nur dann, wenn der Wert tatsächlich falsch in Spalte A steht. Steht der Wert richtig in Splate B, beschwert sich die Variable: Keine Objektvaribale definiert. Ich nehme mal an, weil sie dann ja keinen Wert erhält.
Allerdings finde ich die Lösung nicht... :-(
Sub LagerListe()
Dim Zeile As Long
Dim Eingabe As String
Eingabe = "Free Issue Mat"
Zeile = Columns("A:A").Find(What:=Eingabe, LookIn:= _
xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
MsgBox "Soll sein" & Zeile
If Zeile 0 Then
Range("A" & Zeile).Select
Selection.Cut
Range("B" & Zeile).Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs ("S:\DYN - Lagerliste\CSV Wandlung\LagerListeEN_" & _
Format(Year(Date), "00") & Format(Month(Date), "00") & Day(Date) & _
".csv")
Else
ActiveWorkbook.SaveAs ("S:\Lagerliste\CSV Wandlung\LagerListeEN_" & _
Format(Year(Date), "00") & Format(Month(Date), "00") & Day(Date) & _
".csv")
End If
End Sub