Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
260to264
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filterkriterium 1. vier Stellen

Filterkriterium 1. vier Stellen
26.05.2003 14:20:17
KleinKatha
Hallo zusammmen,

ich suche eine Möglichkeit, wie ich nach den ersten vier Stellen eines Zelleninhalts aus Spalte x selektieren kann.

Dabei sollen alle Zeilen, bei denen der Inhalt aus Zelle-xy in Spalte x mit den gleichen vier Stellen beginnt in eine eigene Tabelle verschoben werden.

Kann jemand helfen?

Gruß
KleinKatha


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Filterkriterium 1. vier Stellen
26.05.2003 14:25:23
Nike

Hi,
mit so etwas mal anfangen:


dim lngZeil as long
lngZeil = 1
do
if left(cells(lngZeil,1),4)="Test" then

end if
lngZeil=lngZeil+1
loop until cells(lngZeil,1)=""

Bye

Nike

Re: Filterkriterium 1. vier Stellen
26.05.2003 14:40:39
KleinKatha

Mein Problem ist, dass ich "Test" nicht kenne. Kann man da irgendwas einbauen. Wenn 1. vier Stellen aus Zelle x gleich 1. vier Stellen aus Zelle y, dann schreibe in Tabelle2.

Dadurch müssten ja die nachfolgenden Zeilen hochrutschen und so eine schöne Schleife ermöglichen, oder?

Gruß
KleinKatha

Re: Filterkriterium 1. vier Stellen
26.05.2003 14:46:03
Nike

Hi,
wo stehen denn x und wo y?

Bye

Nike

Re: Filterkriterium 1. vier Stellen
26.05.2003 14:48:50
KleinKatha


Die stehen beide in der gleichen Spalte.

Gruß
KleinKatha

Anzeige
Re: Filterkriterium 1. vier Stellen
26.05.2003 14:58:37
Nike

Hi,

dim lngZeil as long
dim lngZZeil as long
dim wks1 as worksheet
dim wks2 as worksheet
set wks1 = worksheets(1)
set wks2 = worksheets(2)
lngZeil = 1
lngZZeil = 1
do
if left(wks1.cells(lngZeil,1),4)=left(wks1.cells(lngZeil,2),4) then ' x ist in Spalte A und y in Spalte B
wks1.cells(lngZeil,1).copy _
wks2.cells(lngZZeil,1)
lngZZeil = lngZZeil + 1
end if
lngZeil=lngZeil+1
loop until wks1.cells(lngZeil,1)=""

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige