Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel für Zahlen suchen und kopieren

Formel für Zahlen suchen und kopieren
15.05.2009 11:53:40
Song
Hallo zusammen,
wäre super wenn mir hier jemand helfen kann. Suche eine Formel, die alle 6stelligen Zahlen sucht und dann in ein neues Tabellenblatt kopiert.
Hoffe es kann mir jemand helfen. Ist nämlich recht wichtig für mich.
Danke!

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
sechsstellige Zahlen per Formel auflisten
15.05.2009 12:17:05
WF
Hi,
die Zahlen (und auch Texte) stehen in Spalte A der Tabelle1.
In A1 der Tabelle2 steht folgende Arrayformel:
{=INDEX(Tabelle1!A:A;KKLEINSTE(WENN((LÄNGE(Tabelle1!A$1:A$99)=6)*ISTZAHL(Tabelle1!A$1:A$99)=1; ZEILE(A$1:A$99));ZEILE(A1))) }
runterkopieren
ARRAY-Formel {=geschweifte Klammern} nicht eingeben;
Abschluß der Formel mit gleichzeitig Strg / Shift / Enter (statt Enter allein); - das erzeugt sie.
Salut WF
AW: sechsstellige Zahlen per Formel auflisten
15.05.2009 14:25:30
Song
Danke für die Antworten jedoch hab ich das Problem, dass meine Zahlen in einer Matrix von A-K verteil sind und auch teilweise Zellen verbunden sind.
Anzeige
benutze NIE! verbundene Zellen
15.05.2009 14:50:07
WF
.
AW: sechsstellige Zahlen per Formel auflisten
15.05.2009 14:55:03
Daniel
Hi
machs doch so:
füge in das neue Tabellenblatt in Zelle A1 folgende Formel ein:

=Wenn(Und(Index(Tabelle1!A:K;Zeile();Spalte())>=10000;Index(Tabelle1!A:K;Zeile();Spalte())


diese Formel kopierst du in den Zellbereich von A-K (halt soweit,wie in Tabelle1 Daten stehen) und machst hinterher aus den Formeln mit KOPIEREN, INHALTE EINFÜGEN WERTE aus den Formeln Zahlen.
ansonten könnte es noch per Makro funktionieren:
Sub Zahlenkopieren()
Dim Zelle As Range
Sheets("TAbelle2").Columns(1).ClearContents
For Each Zelle In Intersect(Range("A:K"), ActiveSheet.UsedRange)
If Zelle.Value >= 100000 Then
If Zelle.Value Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Zelle.Value
End If
End If
Next
End Sub
Gruß, Daniel

Anzeige
AW: sechsstellige Zahlen per Formel auflisten
15.05.2009 15:58:28
Song
Danke für die vielen Antworten.
Unter 6stelligen Zahlen meinte ich auch Zahlen z.B. 023456 also die Zahlen die 6 Ziffern haben. Weiteres Problem ist, dass die gefilterten Zahlen in der neuen Tabelle alle in einer Spalte stehen sollen.
Gruß
Song
AW: sechsstellige Zahlen per Formel auflisten
15.05.2009 16:54:14
Daniel
HI
ok, wenns so definert ist, ne 6-Stellige Zahl beginnt für mich halt erst bei 100.000.
ich denken mal, bei deiner Problemstellung mit der Verteilung über mehrere Spalten wirst du um da Makro nicht herumkommen.
du kannst mein Makro verwenden, die If-Abfragen musst du durch folgende ersetzen:
IF Len(Zelle.text) = 6 Then
IF IsNumeric(Zelle.Value) Then
Gruß, Daniel
Anzeige
AW: sechsstellige Zahlen per Formel auflisten
15.05.2009 14:55:30
Daniel
Hi
machs doch so:
füge in das neue Tabellenblatt in Zelle A1 folgende Formel ein:

=Wenn(Und(Index(Tabelle1!A:K;Zeile();Spalte())>=10000;Index(Tabelle1!A:K;Zeile();Spalte())


diese Formel kopierst du in den Zellbereich von A-K (halt soweit,wie in Tabelle1 Daten stehen) und machst hinterher aus den Formeln mit KOPIEREN, INHALTE EINFÜGEN WERTE aus den Formeln Zahlen.
ansonten könnte es noch per Makro funktionieren:


Sub Zahlenkopieren()
Dim Zelle As Range
Sheets("TAbelle2").Columns(1).ClearContents
For Each Zelle In Intersect(Range("A:K"), ActiveSheet.UsedRange)
If Zelle.Value >= 100000 Then
If Zelle.Value


Gruß, Daniel

Anzeige
123456,12 ist für mich keine sechsstellige Zahlen
15.05.2009 15:03:53
WF
.
AW: aber 1,2345 oder 12,345 sind 6-Stellig
15.05.2009 15:23:25
Daniel
das ergibt zumindest deine Formel.
für 6-Stellige Ganzzahlen könnte man meine Formel so erweitern:

=Wenn(Und(Index(Tabelle1!A:K;Zeile();Spalte())=Ganzzahl(Index(Tabelle1!A:K;Zeile();Spalte())); Index(Tabelle1!A:K;Zeile();Spalte())>=10000;Index(Tabelle1!A:K;Zeile();Spalte())


bzw das Makro mit um die folgende Prüfung ergänzen:


if Zelle.Value = Int(Zelle.Value) then


Gruß, Daniel

ja sonst hätte er >= und < schreiben müssen
15.05.2009 15:29:33
WF
.
AW: wo und an welcher Stelle ...
15.05.2009 15:41:54
Daniel
hätter er diesen Text einfügen müssen, damit es einen Sinn ergibt?
Gruß, Daniel
Anzeige

314 Forumthreads zu ähnlichen Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Anzeige
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
2
4
1
1
3
1
2
8
2
3
15
22
5
7
6
8
2
1
3
1
4
2
5