Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zellen kopieren, wenn Bedingung erfüllt

VBA: Zellen kopieren, wenn Bedingung erfüllt
18.09.2018 16:24:48
Anica
Hallo zusammen,
da auch intensives Googeln mich nicht weiter gebracht hat, versuche ich es einmal hier.
Mein Problem ist das folgende:
Wenn in meiner Datei im Reiter "Hauptliste" in Zelle A1 "Stempelaktion" steht, wie folgt in das Tabellenblatt "Stempelkarten" kopiert werden:
Hauptliste B1 - Stempelaktion A1
Hauptliste C1 - Stempelaktion F1
Vermutlich kein Hexenwerk, bin aber schon an diversen Codes gescheitert.
Die Tabelle ist im Original sehr groß, habe eine Lösung mit Formeln, das verlangsamt aber alles extrem und ist fehleranfällig.
Ich werde vermutlich erst morgen dazu kommen es noch einmal zu versuchen, aber ich bedanke mich schon einmal im voraus für eure Hilfe!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zellen kopieren, wenn Bedingung erfüllt
18.09.2018 19:44:06
Gerd
Moin
Sub anica1()
If Worksheets("Hauptliste").Range("A1") = "Stempelaktion" Then
Worksheets("Hauptliste").Range("B1").Copy Destination:=Worksheets("Stempelaktion").Range(" _
A1")
Worksheets("Hauptliste").Range("C1").Copy Destination:=Worksheets("Stempelaktion").Range(" _
F1")
End If
End Sub


Sub anica2()
Dim wsQ As Worksheet, wsZ As Worksheet
Set wsQ = Worksheets("Hauptliste")
Set wsZ = Worksheets("Stempelaktion")
With wsQ
If .Cells(1, 1).Value = wsZ.Name Then
.Cells(1, 2).Copy wsZ.Cells(1, 1)
.Cells(1, 3).Copy wsZ.Cells(1, 6)
End If
End With
Set wsQ = Nothing: Set wsZ = Nothing
End Sub
Gruß Gerd
Anzeige
AW: VBA: Zellen kopieren, wenn Bedingung erfüllt
18.09.2018 20:59:58
Anica
Hallo Gerd,
vielen Dank für deine Antwort, das werde ich morgen früh sofort ausprobieren!
AW: VBA: Zellen kopieren, wenn Bedingung erfüllt
19.09.2018 09:17:39
Anica
Hallo Gerd,
vielen Dank erstmal, hat astrein funktioniert.
Eine Frage habe ich noch: mit anica1 klappt das natürlich dann nur mit Zelle A1, er soll sich aber auf die gesamte Spalte A beziehen und diese Kopierfunktion immer auslösen, wenn er "Stempelaktion" findet.
Ist das anica2?
Bin da echt noch Neuling, sorry.
Gruß,
Anica
AW: VBA: Zellen kopieren, wenn Bedingung erfüllt
19.09.2018 10:00:45
Gerd
Hallo Anica,
falls der Kopiervorgang automatisch starten soll, müsste man zwischen der manuellen Eingabe von
"Stempelaktion" in Hauptliste!A:A oder per Formel unterscheiden. 
Sub anica_1_1()
If WorksheetFunction.CountIf(Worksheets("Hauptliste").Range("A:A"), "Stempelaktion") > 0 Then
Worksheets("Hauptliste").Range("B1").Copy Destination:=Worksheets("Stempelaktion").Range(" _
A1")
Worksheets("Hauptliste").Range("C1").Copy Destination:=Worksheets("Stempelaktion").Range(" _
F1")
End If
End Sub
Gruß Gerd
Anzeige
AW: VBA: Zellen kopieren, wenn Bedingung erfüllt
19.09.2018 12:04:46
Anica
Hallo Gerd,
das soll er, die Daten werden manuell eingegeben.
Das ist leider eine Copy&Paste-Nummer, da systemübergreifend.
Ich merke schon, dass ich mich mit dem Thema VBA deutlich stärker auseinander setzen muss.
Gut, dass es Foren wie dieses gibt.
Gruß,
Anica
AW: VBA: Zellen kopieren, wenn Bedingung erfüllt
19.09.2018 12:06:21
Anica
Jetzt bin ich schon ganz durcheinander, nein, es soll nicht automatisch starten, sondern durch Klicken auf eine Schaltfläche.

389 Forumthreads zu ähnlichen Themen

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
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 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
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9