Wenn in Spalte das steht dann kopiere VBA

Forumthread: Wenn in Spalte das steht dann kopiere VBA

16.07.2018 16:32:36

Luigi

Hallo
habe eine Frage zum VBA wo ich nicht weiterkomme.
Ich habe eine Liste wo in Spalte A bis L Daten drin stehen.
Die Überschriften der Tabelle geht über Zeile 1 und 2 da ich diese aus einer TXT.DAtei importiere.
Was ich brauche und nicht hinbekomme:
In Spalte B stehen einige Kürzel drin oder sind Leer
Das Marko sollte suchen wenn in Spalte B ab der Zeile 3 X1,X2,X3 usw oder U1,U2,U3 gefunden wird. (es kann auch ein X5,X8 oder U7, U8 vorkommen.)
Wenn das Makro ein Treffer hat dann muss in ein neuen Arbeitsblatt der Zelleninhalt von Spalte A vom alten Arbeitsblatt in Spalte A vom neuen Arbeitsblatt. Spalte B von B zu B. Und nun kommt das beste. Der Inhalt von Spalte H vom alten Arbeitsblatt in Spalte C vom neuen Arbeitsblatt.
Ich hab sehr viel rumprobiert. Komme aber leider nicht auf die Lösung

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter

16.07.2018 16:37:16

Fennek
AW: Autofilter

16.07.2018 16:42:13

Luigi
AW: Wenn in Spalte das steht dann kopiere VBA

16.07.2018 18:38:43

Daniel

AW: Autofilter

16.07.2018 16:37:16

Fennek

Hallo,
für die Auswahl kann man den Autofilter nutzen, aber man muss ALLE möglichen Kriterien kennen.(NICHT usw)
mfg

AW: Autofilter

16.07.2018 16:42:13

Luigi

Das mit dem Autofilter ist schwieriger. Da es viele Nicht Kriterien geben kann.
So wäre es besser wenn ich das Makro sagen kann. Wenn du in Spalte B den Wert M1 oder M2 oder M3 (Bis M9 findest) dann ....

AW: Wenn in Spalte das steht dann kopiere VBA

16.07.2018 18:38:43

Daniel

Hi
kommt jetzt darauf an, wie deine Filterkriterien genau aussehen.
ich könnte mir vorstellen, dass du am Tabellenende eine Hilfspalte einrichtest, in welcher du mit einer Formel allse Zeilen markierst (z.B. mit einer 1), die kopiert werden müssen.
dann kannst du zum kopieren über die SpecialCells bzw das Inhalte_Auswählen gezielt auf diese Zeilen zugreifen.
könnte als Code in etwa so aussehen, Bedingung ist dass in Spalte B genau ein Kürzel mit "X" oder "U" am Anfang gefolgt von einer Ziffer steht:


With ActiveSheet.usedrange
with .Columns(.Columns.Count + 1)
.FormulaR1C1 = _
"=IF(AND(OR(Left(RC2,1)=""U"",Left(RC2,1)="X"),IsNumeric(--Mid(RC2,2,1))),1,"""")
.formula = .value
if Worksheetfunction.Sum(.Cells) > 0 then
Intersect(.SpecialCells(xlcelltypeconstants, 1).EntireRow, Range("A:B,H:H")).Copy _
Desitnation:=Sheets("Tabelle2").Range("A1")
end if
.Clearcontents
end wiht
end with

Code ist jetzt nicht getestet und auf Tippfehler geprüft.
GGf muss auch die Formel an deine Bedingungen noch angepasst werden.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Wenn in Spalte das steht dann kopiere VBA

Forumthread: Wenn in Spalte das steht dann kopiere VBA

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread