ich brauche ein VBA Code um folgendes zu machen, ich möchte die gesamte Zeile übernehmen wenn in C2 bis N2 irgendwo eine "1" steht, sollte dort keine "1" stehen soll die Zeile nicht in ein neues Arbeitsblatt übernommen werden. Anbei ein Beispiel.
Ich hoffe Ihr könnt mir weiter helfen.
Beispiel.xlsx (Größe: 8,24 KB / Downloads: 1)
Sub EinserInNeuesBlatt() Dim owsAlt As Worksheet Dim oWsNeu As Worksheet
Set owsAlt = Worksheets("Tabelle1") With Worksheets.Add(After:=Sheets(Sheets.Count)) owsAlt.Rows("1:1").Copy .Cells(1) .Range("C2,D3,E4,F5,G6,H7,I8,J9,K10,L11,M12,N13").Value = 1 owsAlt.Columns("A:N").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=.Range("A1:N13"), CopyToRange:=.Range("A15"), Unique:=False .Rows("1:14").Delete .Range("A1").Select End With End Sub
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • Olossos
Jetzt habe ich mal eine Frage ist es noch möglich, das das Makro die Zeilen zusammenaddiert wo Geschäftsart, Code und der Monat gleich sind? Also dass aus GA Code Feb GTF E4EE 1 GTF E4EE 1
(09.11.2016, 10:17)Olossos schrieb: Vielen Dank Uwe!
Es klappt wirklich sehr gut!
Jetzt habe ich mal eine Frage ist es noch möglich, das das Makro die Zeilen zusammenaddiert wo Geschäftsart, Code und der Monat gleich sind? Also dass aus GA Code Feb GTF E4EE 1 GTF E4EE 1
soll dann bitte
GTF E4EE 2 werden. und dann am besten nach Geschäftsart absteigend sortiert noch.