Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wenn in Spalte das steht dann kopiere VBA

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
Anzeige
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
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige