Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nach Kriterium automatisch kopieren

Zellen nach Kriterium automatisch kopieren
Matthias
Hallo zusammen,
ich würde gerne folgende Aufgabe über ein Makro lösen
Ein Tabellenblatt enthält eine Nummer in C3, dieser Nummer sind in weiteren Spalten (A3, B3, D3,...) Werte zugeordnet.
Wenn nun beispielsweise in C100 die gleiche Nummer wie in C3 eingegeben wird, sollen die Werte aus A3, B3, D3, ... automatisch in A100, B100, D100 übernommen werden.
Von der Logik her:
Wenn Wert in Spalte C eingegeben wird prüfen ob Wert bereits schon mal vorhanden ist
wenn ja in welcher Zeile ist der Wert vorhanden.
Werte der Spalten A, B, D,... in dieser Zeile kopieren und in die Zeile einfügen in der gleiche Wert wie in Spalte C gerade eingegeben wurde.
ABER: wie setzt man das in VBA um ?
Erstmal Danke fürs Frage lesen!
Hoffe einer von euch kann mir helfen.
Grüße
Matthias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen nach Kriterium automatisch kopieren
07.08.2009 12:59:15
Rudi
Hallo,
in das Klassenmodul der Tabelle: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
If Target.Column = 3 Then
If Application.CountIf(Columns(3), Target) > 1 Then
On Error GoTo ErrHandler
Application.EnableEvents = False
n = Application.Match(Target, Columns(3), 0)
Range(Cells(n, 1), Cells(n, 4)).Copy Target.Offset(, -2)
End If
End If
ErrHandler:
Application.EnableEvents = True
End Sub

Gruß
Rudi
AW: Zellen nach Kriterium automatisch kopieren
07.08.2009 13:39:45
Matthias
Hallo Rudi,
vielen Dank für die rasche Antwort! Funktionert!
Eine Frage habe ich noch:
Wenn ich nur bestimmte Zellen kopieren will (beispielsweise A3, B3, E3, F3, J3).
Was muss ich ändern?
Ich verstehe die Zeile 
Range(Cells(n, 1), Cells(n, 2)).Copy Target.Offset(, -2)
leider nicht.
Vielen Dank nochmal fürs erste.
Grüße
Matthias
Anzeige
AW: Zellen nach Kriterium automatisch kopieren
07.08.2009 13:50:18
Rudi
Hallo,
dann kannst du die Zellen einzeln kopieren. 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
If Target.Column = 3 Then
If Application.CountIf(Columns(3), Target) > 1 Then
On Error GoTo ErrHandler
Application.EnableEvents = False
n = Application.Match(Target, Columns(3), 0)
Cells(n, 1).Copy Target.Offset(, -2)
Cells(n, 2).Copy Target.Offset(, -1)
Cells(n, 5).Copy Target.Offset(, 3)
Cells(n, 6).Copy Target.Offset(, 4)
Cells(n, 10).Copy Target.Offset(, 8)
End If
End If
ErrHandler:
Application.EnableEvents = True
End Sub

Gruß
Rudi
Anzeige
AW: Zellen nach Kriterium automatisch kopieren
07.08.2009 14:01:54
Matthias
Vielen Dank,
Damit ist das ganze erledigt!
Grüße
Matthias

308 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
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
16
4
2
4
4
3
6
2
5
2
3
3
18
1
4
2
1
4
5
3
5
2
5
2
9