Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
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
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Wert kopieren wenn Bedingungen erfü

Forumthread: VBA: Wert kopieren wenn Bedingungen erfü

VBA: Wert kopieren wenn Bedingungen erfü
17.07.2021 13:47:49
Patrick
Hallo zusammen,
der Titel hier hört sich wahrscheinlich total einfach an, nichtsdestotrotz habe ich trotz Suche und herumprobieren keine zufriedenstellende Lösung hinbekommen. Daher hoffe ich, das jemand mir hier helfen kann.
Aufgabenstellung:
Der Wert (Spalte D) einer Anforderung soll in eine (Ziel-)Zelle kopiert werden, wenn bestimmte Bedingungen erfüllt sind.
Die Ziel-Zelle liegt in einem Kalender (Spalte F bis AE) und jede Anforderung (Spalte A) hat ein Datum (Spalte C). Nun soll der Wert (Spalte D) 3 Monate nach dem Datum in den Kalender geschrieben werden. Die Zielzelle darf aber nicht nach Spalte Q sein, da hier das neue Jahr anfängt.
Bedingung 1: Die Anforderungsnr. (Spalte A) fängt mit einem B oder einem AB an.
Bedingung 2: Der Wert (Spalte D) der Anforderung liegt zwischen 1 und 1000.
Bedingung 3: Die Zielzelle liegt zwischen Spalte F und Q (das Jahr 2021).
Werden die 3 Bedingungen nicht erfüllt, soll mit dem Wert nichts passieren und die nächste Zeile soll geprüft werden.
Ich habe dies in einer Beispieltabelle dargestellt, die Originaldatei hat zur Zeit 3400 Zeilen da kommen immer mal welche dazu bzw. welche entfallen.
Da in die Spalten E bis AE manuell Werte eingetragen werden (bei allen Anforderungen über 1000€), kann ich die Zellen nicht verformeln und daher soll dies über VBA laufen.
Es ließt sich nicht kompliziert, ist es für mich aber. Vielleicht hat jemand eine Lösung für mich?
Beispielmappe:
https://www.herber.de/bbs/user/147170.xlsm
Viele Grüße,
Patrick
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kein Formellösung
17.07.2021 14:12:03
Hajo_Zi
das wurde schon im anderen Forum erstellt.
GrußformelHomepage
Anzeige
AW: VBA: Wert kopieren wenn Bedingungen erfü
17.07.2021 14:15:27
Patrick
@Hajo_Zi: Ich hab meinen Post in dem anderen Forum auf erledigt gesetzt, kann dort auch gelöscht werden.
AW: VBA: Wert kopieren wenn Bedingungen erfü
17.07.2021 18:46:58
JoWE
Hallo Patrick,
versuch mal:

Sub auswertung()
Dim b1 As Boolean 'Wert in Spalte A beginnt mit B oder mit AB, dann ist b1 wahr
Dim b2 As Boolean 'Wert in Splate 4 ist zwischen 0,01 und 1000, dann ist b2 wahr
Dim b3 As Boolean 'Monat aus Spalte C plus 7 Monate ist noch in 2021, dann ist b3 wahr
Dim ze As Long 'Zeilenzähler
For ze = 7 To Cells(Rows.Count, 1).End(xlUp).Row
b1 = Left(Cells(ze, 1).Text, 1) = "B" Or Left(Cells(ze, 1).Text, 2) = "AB"
b2 = Cells(ze, 4).Value > 0.01 And Cells(ze, 4).Value
Gruß
Jochen
Anzeige
AW: VBA: Wert kopieren wenn Bedingungen erfü
18.07.2021 11:57:58
Patrick
Hallo Jochen,
vielen Dank für deinen Code. Ich habe ihn an einer Stelle angepasst und es funktioniert wie ich möchte, super.
Eine Frage nur zum Verständnis. Die Prozedur ist ja auch mit mehreren If und Then möglich, du hast die Umsetzung mit Boolean gewählt.
Einfach nur so weil es passt oder hat dies auch Vorteile im Bezug auf Speicherplatz oder ähnliches?
Auf jeden Fall wird nur eine If Then Zeile benötigt ;)
Die Zeile For ze = 7 To Cells(Rows.Count, 1).End(xlUp).Row funktioniert auch ohne die Variablendefinition Dim ze As Long.
Hat die Definition auch den Hintergrund Speicherplatz oder ähnliches?
Einen schönen Sonntag und viele Grüße,
Patrick
Anzeige
AW: VBA: Wert kopieren wenn Bedingungen erfü
18.07.2021 14:02:53
JoWE
Hallo Patrick,
die Dimensionierung der Variablen mache ich eigentlich immer.
Der Code ist so erstellt, damit er möglichst einfach ist und auch einfach zu verstehen ist.
Gruß
Jochen
;

Forumthreads zu verwandten 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
Zeilen kopieren wenn Bedingung erfüllt
Jupp

Hallo zusammen, ich Grüße euch,
das Forum und die Beiträge finde ich super
Heute wende ich mich als VBA-Neuling mit einem Problem an euch und hoffe, dass mir geholfen wird.
Ich habe eine Tabelle, die doch bereits eine erhebliche Zeilen und Spaltenanzahl erreicht hat.
Nun möchte...
18.03.2009 19:49:40
Thread-ID: 1061595
3 Beiträge
Anzeige
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
Mit Matrixformeln berechnete Werte übernehmen
Karin

Hallo Excelgemeinde,
ich habe eine Lagerdatei mit circa 50 Tabellenblättern. Auf das erste Tabellenblatt sollen in Spalte H immer die letzten Werte der anderen Tabellenblätter aus Spalte J übernommen werden. Die Werte in den einzelnen Tabellenblättern ermittle ich mit Matrixformeln. Meine V...
21.12.2009 11:51:41
Thread-ID: 1125295
5 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
Anzeige
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
Nur Werte aus Listbox übernehmen
Udo

Guten Tag @ all!
Ich möchte erreichen, dass von einer Userform nur ein in einer Listbox aufgeführter Wert in eine Tabelle übernommen werden kann.
Eine Veränderung soll nicht möglich sein. Die Listbox und die Übernahme ist kein Problem, aber es ist leider immer möglich einen anderen Wer...
21.11.2010 14:11:56
Thread-ID: 1188043
3 Beiträge
Wert aus letzter Zelle einer Spalte übernehmen
A.

Moin zusammen !
ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern. In die ersten Blätter werden Werte aus immer wieder ändernden CSV Dateien eingelesen. Die Werte in den CSV sollen per Diagramm analysiert werden. Die Übernahme der Werte und das Diagramm funktionieren. Bloss werden die...
09.12.2010 10:14:19
Thread-ID: 1190753
4 Beiträge
Automatisches kopieren wenn Bedingung erfüllt
Christian

Hallo,
das Forum ist mir empfohlen worden. Also erstmal "Hallo" und vielen Dank für Antworten im Voraus.
Ich möchte meine Umsatztabelle anpassen. Im ersten Tabellenblatt sind Daten enthalten wie Auftragsnummer, Monat, Kundenname, Gerät, Vk-Preis, Land...
Nun möchte ich für jedes Ger...
23.12.2010 13:07:26
Thread-ID: 1192626
2 Beiträge
wenn Bedingung erfüllt, String in Grossbuchst umw.
Peter

Guten Abend
Ich möchte mit
Privat Sub Workbook_SheetChange(ByVal Sh as Object, ByVal Target as Range)
Eingaben prüfen und wenn gewisse Bedingungen erfüllt sind, diese in Grossbuchstaben umwandeln (UCASE).
Bedingungen:
Sh: Tabellenname darf nur aus Zahlen bestehen, z.b. "0000...
27.01.2011 20:43:03
Thread-ID: 1197702
11 Beiträge
Auslesen von Werten wenn Bedingungen erfüllt sind
Werten

Hallo Leute,
ich möchte gern in der Tabelle 3 alle Ziffern die mit 5 anfangen in einer Spalte untereinander anzeigen lassen, wenn folgende Bedingungen erfüllt sind: 1. in der Tabelle 1 (rot) muss in einer der drei Kategorien entw. eine 1 oder 2 stehen und die Ziffer muss mit 5 anfangen.
...
23.03.2011 21:23:17
Thread-ID: 1207240
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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