Hallo,
sitzte gerade an meiner ersten If Then Else Programmierung:
Ziel soll sein:
Wenn in Zelle „C8“ ein „S“ steht sollen bestimmte Zellen (Range) in das Tabellenblatt „Wenn_S“ einer anderen Exceldatei geschrieben werden. Wenn aber ein „T“ in Zelle "C8 steht soll das ganze in das Tabellenblatt „Wenn_T“ der anderen Exceldatei geschrieben werden.
Soweit bin ich schon:
Sub Transfer()
Application.ScreenUpdating = False
If „C8“ = S Then
Range („A8:T8,AU(:FT8“).Copy
Workbook.Open (ThisWorkbook.Path & „“ & „Zieldatei.xlsm“
Sheets(„Wenn_S“).Select
Range(„a“ & Range(„d65536“).End(xlUp).Row + 1).Select
ActiveSheet.Paste
Windows(„Zieldatei.xlsm“).Close Savechanges:=True
ElseIf „C8“ = T
wie oben
wie oben
Sheets(„Wenn_T“).Select
wie oben
wie oben
wie oben
End If
End Sub
Soweit ich die Copy-Paste-Close Folge einzeln ausführe funktioniert auch alles wie gewünscht, nur sobald ich die Zeilen „If…,“ „Elseif…“ und „End If“ einfüge, pasiert garnichts mehr. Dummerweise kommt auch keine Fehlermeldung, daher habe ich keine Ahnung wo der Fehler liegen könnt.
Ich möchte auch wenn möglich gerne bei dieser Schreibweise bleiben, da neben S und T evtl. in zukunft noch andere Kriterien hinzukommen könnten und dann mit einem weiteren ElseIf einfach zu ergänzen wären.
Danke schonmal!
Marv