Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile kopieren wenn zelle wert "xyz" enthält

Zeile kopieren wenn zelle wert "xyz" enthält
19.05.2006 16:03:31
nontacky
Hallo,
ich habe ein Problem mit einer Makroerstellung. Habe das Archiv schon durchsucht und auch einiges ähnliches gefunden - aber leider sind meine VBA Kenntnisse zu schlecht um daraus genau das zu basteln was ich haben möchte.
Ich habe eine Tabelle mit 5 Spalten & 50 Zeilen die Daten enthalten (B4 - F54). In Spalte C wird ein Status eingetragen. Sobald dieser auf "done" steht möchte ich, dass bei ausführen des Makros der Eintrag + die umliegenden 4 Zellen (also die Zeile meiner Liste kopiert werden und an einer anderen Stelle der Tabelle (im Spalte AA ab Zeile 4) kopiert werden (in die nächte freie Zelle von AA4 aus gesehen). Das soll als Schleife laufen, so dass ALLE Einträge aus meiner Liste die auf "done" stehen untereinander in die Abalge ab Spalte AA gelegt werden. Danach sollten alle Einträge die in der B4-F54 Tabelle stehen und auf "done" gesetzt sind gelöscht werden.
Ich hoffe das ist überhaupt machbar.
Vielen Dank für die Hilfe
Nontacky

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren wenn zelle wert "xyz" enthält
19.05.2006 16:13:05
Reinhard
Hi nontacky,
Option Explicit
Sub tt()
Dim n As Integer, pos As Integer
pos = 4
For n = 4 To 54
If Cells(n, 3) = done Then
Cells(n, 2).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 4), Cells(n, 6)).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 2), Cells(n, 6)).ClearContents
End If
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: Zeile kopieren wenn zelle wert "xyz" enthält
19.05.2006 16:37:34
nontacky
Hallo Reinhard,
vielen Dank für die Hilfe. Es klappt fast alles - eine Kleinigkeit noch. Die Daten werden 1a in die Spalte AA kopiert - allerdings nicht untereinander sondern immer in die gleiche Zeile (Zeile 4). Da die Einträge aus meiner Liste in Spalte AA abgelegt werden sollen ist es wichtig, dass die Einträge untereinander abgelegt werden = Anfangen in AA4 .. wenn AA4 belegt ist dann AA5 usw. usf.
Wäre super wenn Du mir da noch mal helfen könntest.
Vielen Dank,
Nontacky
Anzeige
sorry, mein Fehler
19.05.2006 21:01:42
Reinhard
Hi nontacky,
hatte was im Code vergessen.
Option Explicit
Sub tt()
Dim n As Integer, pos As Integer
pos = 4
For n = 4 To 54
If Cells(n, 3) = "done" Then
Cells(n, 2).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 4), Cells(n, 6)).Copy Destination:=Range("AA" & pos)
Range(Cells(n, 2), Cells(n, 6)).ClearContents
pos=pos+1
End If
Next n
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

301 Forumthreads zu ähnlichen Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 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
15
2
1
5
2
2
7
2
1
2
11
2
3
3
4
4
1
2
2
6
2
6
9
7
8