Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Alle Zellen mit best. Wert suchen & kopieren

Forumthread: Alle Zellen mit best. Wert suchen & kopieren

Alle Zellen mit best. Wert suchen & kopieren
25.02.2007 18:21:33
NicoM
Hallo,
mit dem Makro-Rekorder bekomme ich folgendes Problem nicht in den Griff:
1. In einem Sheet alle Zellen suchen, die "ABC" enhalten;
2. die Zellen kopieren, die rechts neben den "ABC" - Zellen stehen;
3. Kopieren in Sheet 2 (ab A1) untereinander.
Weiß jemand Rat?
Gruß und herzlichen Dank im voraus,
NicoM
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellen mit best. Wert suchen & kopieren
25.02.2007 19:20:00
EtoPHG
Hallo Nico,
Versuch's mal damit:

Option Explicit
Sub FindAndCopyRight()
Const strFind = "ABC"
Dim rng As Range, rngC As Range
Dim strFirst As String
Dim dx As Double
dx = 1
With ActiveSheet.UsedRange
Set rng = .Find(strFind, after:=Range("A1"))
If Not rng Is Nothing Then
strFirst = rng.Address
Do
rng.Offset(0, 1).Copy (Sheets(2).Cells(dx, 1))
dx = dx + rng.Cells.Count
Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> strFirst
End If
End With
End Sub

Gruss Hansueli
Anzeige
AW: Alle Zellen mit best. Wert suchen & kopieren
25.02.2007 19:31:00
EtoPHG
Hallo Nico,
Kleine Verbesserung, das es auch aus einem Modul läuft:

Sub FindAndCopyRight()
Const strFind = "ABC"
Dim rng As Range, rngC As Range
Dim strFirst As String
Dim dx As Double
dx = 1
With ActiveSheet.UsedRange
Set rng = .Find(strFind, after:=.Cells(1, 1))
If Not rng Is Nothing Then
strFirst = rng.Address
Do
rng.Offset(0, 1).Copy (Sheets(2).Cells(dx, 1))
dx = dx + rng.Cells.Count
Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> strFirst
End If
End With
End Sub

Gruss Hansueli
Anzeige
AW: Alle Zellen mit best. Wert suchen & kopieren
25.02.2007 21:48:46
NicoM
Hallo Hansueli,
allerherzlichsten Dank und Kompliment für Deine tolle Arbeit.
Die Makro läuft genau so, wie ich mir das vorgestellt habe.
VG
NicoM

Forumthreads zu verwandten Themen

Ablaufdokumentation
Sascha

Hallo. Ich könnte etwas Hilfe gebrauchen. Für eine geplante Umschulung möchte ich programmieren üben und habe mir ein kleines Projekt vorgenommen wie hier zu sehen: https://www.herber.de/bbs/user/118929.xlsx
Wichtig ist mir der Verlauf, die Reihenfolge der Werte, die nur dann als fertiggest...
13.01.2018 16:09:23
Thread-ID: 1602063
3 Beiträge
Macro Sprung zu Ziel und Aktion
Volker

Hallo VBA-Profis,
leider breche ich bei einer meines Erachtens recht übersichtlichen VBA-Programmierung ab. Der Stand ist folgender:
Eine externe App trägt in Blatt1 einer Datei „Name1“ der Reihe nach fünf Werte, als letztes ein Datum ein. Die jeweils aus den 5 Werten bestehenden Datens...
29.10.2020 17:50:26
Thread-ID: 1790006
12 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 11:51:36
Thread-ID: 1001078
2 Beiträge
Leere Zellen erkennen, nächste Zeile ansteuern
Steffi

Hallo!
Die letzten beiden Tage habe ich hier schon großartige Hilfe bekommen, mein Makro läuft jetzt soweit, ein kleines Problem habe ich allerdings noch..
Ich muss bestimmte Daten von einem vorgegebenen File in ein Benutzerfile kopieren.
Dabei suche ich diese Daten anhand von Schlüs...
08.09.2004 11:34:08
Thread-ID: 481927
1 Beitrag
Anzeige
Code von "Tino", Zeile kopieren wenn Wert gefunden
"Tino",

Hallo zusammen,
ich habe hier aus dem Forumsarchiv einen Code von "Tino" entdeckt, der genau das macht, was ich gesucht habe. Es wird im Prinzip nach einem Wert in einer Spalte gesucht und die dazugehörige Zeile in einem anderen Blatt eingefügt.
Ich würde jedoch gerne nicht nur eine Spa...
20.03.2014 02:16:21
Thread-ID: 1354131
6 Beiträge
VBA wenn Zeile befüllt Daten aus anderen Spalte verarbeiten
Reo87
Hallo liebe Community,

Ich stehe vor einem Problem mit VBA wo ich leider bisher keine Lösung finden konnte.

Derzeit entwickel ich ein eigenständiges Formular zum versenden individueller aktionsblätter.
Wie ich die Blätter erstelle und via Mail versenden bekomme ich auch hin.
31.08.2023 10:46:49
Thread-ID: 1944675
1 Beitrag
Erweitern einer Formel über VBA
Niko
Hallo zusammen,

so langsam stoße ich an meine Grenzen bezüglich Excel und VBA.

Kurze Beschreibung:

Meine Userform2 beinhaltet eine TextBox1 und einen CommandButton1. Über VBA soll nun nach betätigen des Button1 geprüft werden, ob der Eintrag in der TextBox1 in der Tabelle...
10.04.2024 19:23:15
Thread-ID: 1972973
25 Beiträge
Fehler in Formel, Sortierung
Langmantl,

Hallo, ich habe in dem angeführten Code ein Problem,
Irgendwie funktioniert bei Klick auf den Löschen button und Klick auf den Neu Button die Funktion, die ermöglicht, dass die Tabelle sortiert wird, da zeigt er mir immer einen Debug Fehler an
Es soll sortiert werden: Mitarbeiter DB
11.02.2015 14:01:29
Thread-ID: 1408719
5 Beiträge
Zeile löschen wenn zwei Bedingungen erfüllt sind
Anton

Hallo Leute,
ich hatte eine Pivot-Tabelle, die zu viele leere Zellen hat.
Jetzt möchte ich die überflüssigen Zeilen löschen.
Mit diesem Code lösche ich eine Zeile wenn (in diesem Fall) Spalte A leer ist:
Sub E_ZeileWegWennZelleLeer() ' Zeilen löschen wenn Zelle in Spalte A leer...
26.06.2006 19:07:02
Thread-ID: 776666
4 Beiträge
Inhalte von mehreren Dateien in eine Zusammenführe
mehreren

Hallo!
Obwohl ich in excel schon viel Erfahrung habe gelingt mir mit VBA dann doch nicht alles was ich möchte - folgende Aufgabenstellung:
Daten mehrerer einzelnen Dateien (Tageszusammenfassungen) sollen in einer einzigen Datei (=Monatszusammenfassung) zusammengefasst werden - ohne Vari...
23.09.2013 17:36:34
Thread-ID: 1331927
2 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum