end if Problem
27.02.2008 11:50:00
Frederic
könntet ihr mir evtl. bei meinem kleinen IF THEN Problem weitherhelfen?
ich habe folgenden Code:
If Sheets("Liste").Range("M401") = "Januar" Then
Sheets("Januar").Range("A1:K400").Value = Sheets("Liste").Range("M7:W407").Value
Sheets("Januar").Range("A1:K" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Sheets("Liste").Select
Columns("A:A").Select
Selection.ClearContents
Range("A7").Select
Ich möchte ihm praktisch sagen, dass er immer in das Blatt kopieren soll, abhängig von Zelle M401.
Also bei Januar in Sheet"Januar", etc. bis Dezember..
Welchen Teil habe hier nicht verstanden?
Danke für Eure Hilfe.
Frederic