AW: ergänze in Zeile 8 deines Makros den
13.09.2016 11:36:52
UweD
Hallo nochmal.
- Ok, dann kann das MAX ja weg
- Im Prinzip ging das mit der Formel so...
Dim WS1 As Worksheet
Dim WSF As Worksheet
Dim lngRow As Long
Set WS1 = ThisWorkbook.Worksheets("Masterliste")
Set WSF = Worksheets.Add(after:=Worksheets("Masterliste"))
WSF.Name = TextBox1.Text
WS1.Range("A1:D310, G1:I310").Copy
With WSF
lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
.Cells(lngRow, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.Range("H" & lngRow & ":H" & lngRow + 309).Formula = "=IF($A$1<>"""",""XY"","""")"
.Columns("H").Value = .Columns("H").Value 'Formel in Werte
End With
End Sub
Aber:
- da das Blatt gerade erst erzeugt wurde, ist das leer
- mit lngRow_2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 2 wird die erste Freie Zeile gesucht und 2 addiert / also ist der Wert=3
- wenn du nun ab A3 reincopierst, ist A1 immer noch leer. Also würde die Formel nie was anzeigen.
es sei denn, du wills (ab A3) jeweils den Wert in A ? prüfen?! Dann so..
.Formula = "=IF(A3"""",""XY"","""")"
LG UweD