Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.07.2025 07:26:11
Excelproblem mit natürlichen Zahlen
12.07.2025 06:51:22
Grok.Free: Your Gateway to Advanced AI Technology
11.07.2025 18:11:03
Zeiträume vergleichen
11.07.2025 15:59:08
Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit 1 und 0 kopieren

Forumthread: Spalten mit 1 und 0 kopieren

Spalten mit 1 und 0 kopieren
02.10.2003 12:15:57
Markus
Hallo Leute,
ich habe da mal ein Problem. Ich habe bereits eine Spalte angelegt (Spalte E)welche nur 1 oder 0 enthält (Können fünf mal 1 dann drei mal 0 dann wieder 1 usw. sein also nicht zusammenhängend) ich möchte nun aus allen Zeilen welche eine 1 haben die Spalte A nach B kopieren und zwar zusammenhängen, also wenn zwischendurch eine 0 kommt diese weglassen und alle mit einer 1 untereinanderkopieren. Ich hoffe ihr habt eine Idee die auch ich einsetzen kann.

Danke schon mal für Eure Hilfe.

Gruß Markus
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Autofilter oder Formel
02.10.2003 12:30:55
Günther Oppold
Hi Markus,

am leichtesten geht's wohl mit dem Autofilter.
in der die gefilterten Tabelle Spalte A markieren;
BEARBEITEN / gehe zu / Inhalte / nur sichtbare Zellen;
diese kopieren,
beim Autofilter "alle" anzeigen lassen;
nun in Spalte B die Werte eintragen.

2. Möglichkeit
in B1: {=INDEX(A:A;KKLEINSTE(WENN(E$1:E$999=1;ZEILE($1:$999));ZEILE()))}
ARRAY-Formel: die geschweifte Klammer nicht eingeben, sondern die Formeleingabe abschließen mit Strg+Umsch+Enter

Günther
Anzeige
Prima aber etwas hätte ich noch :-)
02.10.2003 12:47:47
Markus
Hallo Günther.
erst mal vielen Dank geht echt Klasse. Aber eine Sache hätte ich noch in einigen Spalten ekomme ich den Ausdruck #Zahl! kann ich das unterdrücken ich hätte gerne leere Zeilen ist das möglich. Es geht darum ich möchte später alle Werte kopieren bis zur leeren Zeile. Noch eine Frage ist die Spaltenanzahl begrenzt können bis zu 50000 Daten werden??

Danke schon mal für deine Super schnelle Hilfe!

Gruß Markus

P.S. Wenn du auch noch eine Idee hast wie ich die alle Werte bis zur Leerzeile Kopiere wäre Super.
Anzeige
AW: Prima aber etwas hätte ich noch :-)
02.10.2003 17:07:10
Günther Oppold
die Formel zur unterdrückung des Fehlers lautet:

{=wenn(istfehler(INDEX(A:A;KKLEINSTE(WENN(E$1:E$999=1;ZEILE($1:$999));ZEILE()));"";INDEX(A:A;KKLEINSTE(WENN(E$1:E$999=1;ZEILE($1:$999));ZEILE()))}

natürlich muss E$999 entsprechend deinen Zeilen angepasst werden!

zum schnellen Kopieren:
Du weist bestimmt, wie eine Zelle gezogen werden kann (mit dem dünnen Curser-Kreuz an der rechten unteren Zellecke). Statt ziehen - mach einen Doppelklick mit der linken Maustaste. Die Formel kopiert sich so weit nach unten, wie die linke Spalte gefüllt ist.
d.h. hast Du dort eine ununterbrochene Reihe dann gehts bis Zeile 65536. Oder du schreibst die Formel in Zelle B1, kopierst sie, markierst Spalte B und "Einfügen"

Es gibt meines Wissens keine Begrenzung der Zellen, jedoch wird die Berechnung (da die Formel eine ARRAY Formel ist und die ganze Tabelle von oben nach unten durchsucht) bei dieser Zeilenanzahl___s_e_e_e_e_h_r___langsam.

Günther
Anzeige
AW: Spalten mit 1 und 0 kopieren
02.10.2003 12:38:52
ChrisL
Hi Markus

Hier noch ein Makro...

Option Explicit


Sub mach()
Dim iZeile As Long
Application.ScreenUpdating = False
Columns(2).ClearContents
For iZeile = 1 To Range("E65536").End(xlUp).Row
If Cells(iZeile, 5) = 1 Then
If Range("B1") = "" Then
Range("B1") = Cells(iZeile, 1)
Else
Cells(Range("B65536").End(xlUp).Row + 1, 2) = Cells(iZeile, 1)
End If
End If
Next iZeile
Application.ScreenUpdating = True
End Sub


Gruss
Chris
Anzeige
Bräuchte noch mal Hilfe
02.10.2003 14:21:15
Markus
Also das Programm von Chris funktioniert.
Wie kann ich den Code umschreiben damit er die Werte von Spalte D nach Spalte f Kopiert wenn Die Spalte E den Wert 1 hat.

Danke und schönes Wochenende

Gruß Markus
AW: Bräuchte noch mal Hilfe
02.10.2003 14:36:47
ChrisL
Hi Markus

Cells(Zeile, Spalte)

Gruss
Chris



Sub mach()
Dim iZeile As Long
Application.ScreenUpdating = False
Columns(2).ClearContents
For iZeile = 1 To Range("E65536").End(xlUp).Row
If Cells(iZeile, 5) = 1 Then
If Range("F1") = "" Then
Range("F1") = Cells(iZeile, 4)
Else
Cells(Range("B65536").End(xlUp).Row + 1, 6) = Cells(iZeile, 4)
End If
End If
Next iZeile
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Bräuchte noch mal Hilfe geht so nicht
06.10.2003 09:07:24
Markus
Hallo Chris oder alle anderen,
wenn ich denn Code so verwende kopiert sich nur der Wert von D3 nach F1 sonst nichts, kann es daran liegen, dass ich in der ersten Zeile Texte stehen habe und keine Werte oder woran liegt das, und wenn ja wie fange ich an erst ab der zweiten Zeile zu kontrollieren.

danke euch schon mal

Gruß Markus
Anzeige
AW: Bräuchte noch mal Hilfe geht so nicht
06.10.2003 11:40:59
ChrisL
Hi Markus

Stell mal deine Datei in den Anhang.

Gruss
Chris
Tabelle mit Link für Chris
06.10.2003 12:11:23
Markus
Hallo Chris,

in der Tabelle 3 möchte ich alle Werte der Spalte D nach F kopieren wenn in der Spalte E eine 1 steht. Dann möchte ich eine weitere Abfrage nach allen Werten die nun in F stehen machen (die gleiche Abfrage steht momentan noch in der Tabelle 4 Spalte E, soll aber in Tabelle3 Spalte G). Die Abfrage wieder mit 1 und 0 in der Spalte G. Und dann alle Werte die nun eine 1 haben nach Spalte H kopieren.

Ich hoffe du verstehst wie ich das meine.
Der Link hat folgenden Namen

https://www.herber.de/bbs/user/1297.xls

Danke für die ganze Arbeit die du dir machst.

Gruß
Markus
Anzeige
AW: Tabelle mit Link für Chris
06.10.2003 13:47:07
ChrisL
Hi Markus

Versuch mal so...

Option Explicit


Sub test()
Dim iZeile As Long
Application.ScreenUpdating = False
Columns(6).ClearContents
For iZeile = 1 To Range("E65536").End(xlUp).Row
If Cells(iZeile, 5) = 1 Then Cells(Range("F65536").End(xlUp).Row + 1, 6) = Cells(iZeile, 4)
Next iZeile
Application.ScreenUpdating = True
End Sub


Gruss
Chris
Anzeige

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Anzeige
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
kopieren in eine zelle aus einer erstellten liste
Merle


Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
05.09.2008 13:01:59
Thread-ID: 1007653
4 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige