Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Makro: Wenn Wert vorhanden, dann...

Forumthread: Excel Makro: Wenn Wert vorhanden, dann...

Excel Makro: Wenn Wert vorhanden, dann...
15.05.2018 15:32:35
Weiland
Guten Tag,
ich kenne mich mit VBA leider gar nicht aus. Für ein Projekt habe ich mehrer große Tabellen mit verschieden Werten darin. Nun muss ich einen Wert in eine Zelle eintragen, vorausgesetzt ein anderer von mir bestimmter Wert in einer anderen Zelle kommt darin vor. Eigentlich ziemlich simpel.
Das würde dann folgendermaßen aussehen:
In Spalte G und H befinden sich Werte (z.B. G3="2" / H3="3" ; ... ; G20="50" / H20="6"; ... und so weiter).
Wenn jetzt der Wert "2" in der Spalte G oder H vorkommt, dann möchte ich, dass in die gleichen Zeile in der Spalte I der Wert "3" eingetragen wird.
Ich habe es ansatzweise probiert, komme aber nicht weiter. Einfacher halber nur mal mit einer Spalte als Suchkriterium.
Hier den Code den ich verwendet habe:
If Intersect(Range("G"), Target) Is Nothing Then Exit Sub
If Target = "8320000" Then
Range("I" & Target.Row) = "3"
Else
Range("I" & Target.Row) = ""
End If
End Sub
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro: Wenn Wert vorhanden, dann...
15.05.2018 15:54:46
Werner
Hallo,
wie/wann soll das Makro starten? Automatisch, sobald ein Wert in Spalte G oder H eingegeben wird? Falls ja, wie kommen die Werte in die Zellen? Werden sie manuell eingegeben oder sind sie das Ergebnis einer Formelberechnung?
Oder soll das Makro per klick auf eine Schaltfläche gestartet werden?
Was ist, wenn sowohl in Spalte G als auch in Spalte H der entsprechende Wert vorhanden ist?
Gruß Werner
Anzeige
AW: Excel Makro: Wenn Wert vorhanden, dann...
15.05.2018 16:07:10
Weiland
Hallo,
danke für die schnelle Rückmeldung. Das Makro soll per Tastenkombination gestartet werden. Die Werte sind fix manuell (ohne Formel) eingetragen. Und der Wert kommt nur jeweils in G oder H vor.
Das ein Wert in beiden Zeilen vorhanden ist, ist nicht der Fall. Es kann sein das z.B. der Wert "2" in G3 und dann später nochmal in H500 vorkommt, aber niemals in der gleichen Zeile. Sprich es soll bei I3 und I500 den Wert "3" einsetzen.
Ich weiß nicht ob es nicht einfacher wäre 2 Makros zu erstellen. Einmal die Abfrage für die Spalte G und dann die Abfrage für Spalte H?
Anzeige
AW: Excel Makro: Wenn Wert vorhanden, dann...
15.05.2018 16:51:38
Werner
Hallo,
so? 
Public Sub Test()
Dim loLetzte As Long, raZelle As Range
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Range("G:H").SpecialCells(xlLastCell).Row
For Each raZelle In .Range("G1:H" & loLetzte)
If raZelle.Value = 2 Then
If raZelle.Column = 7 Then
raZelle.Offset(, 2) = 3
ElseIf raZelle.Column = 8 Then
raZelle.Offset(, 1) = 3
End If
End If
Next raZelle
End With
End Sub
Gruß Werner
Anzeige
AW: Excel Makro: Wenn Wert vorhanden, dann...
15.05.2018 17:11:29
Weiland
Hallo,
funktioniert perfekt.
Vielen lieben dank für die Mühe und die schnelle Rückmeldung :).
Gerne u. Danke für die Rückmeldung. o.w.T.
15.05.2018 19:19:25
Werner
AW: Excel Makro: Wenn Wert vorhanden, dann...
15.05.2018 20:53:17
Barbaraa
Mit Formeln hast Du sofort das Ergebnis, und nicht erst nach Starten des Makros.
Obwohl es auch mit einem Makros ginge, das bei Bedarf anspringt.
Die Formel in I3 sieht so aus: 
I3: =WENN((G3=3)+(H3=3)>0;2;"")

oder 
I3: =WENN(ODER((G3=3);(H3=3));2;"")

Ist aber die 2 in I nur dann gewünscht, wenn entweder nur in G oder nur in H eine 3 steht, dann empfehle ich
diese Formel: 
I3: =WENN((G3=3)+(H3=3)=1;2;"")
LGB
Anzeige
;

Forumthreads zu verwandten Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel Makro: Wenn Wert vorhanden, dann

Schritt-für-Schritt-Anleitung

Um ein Excel Makro zu erstellen, das einen bestimmten Wert in einer Zelle überprüft und basierend darauf in einer anderen Zelle einen Wert einträgt, folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Einfügen eines neuen Moduls:

    • Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Public Sub Test()
   Dim loLetzte As Long, raZelle As Range
   With Worksheets("Tabelle1") ' Blattname anpassen
       loLetzte = .Range("G:H").SpecialCells(xlLastCell).Row
       For Each raZelle In .Range("G1:H" & loLetzte)
           If raZelle.Value = 2 Then
               If raZelle.Column = 7 Then
                   raZelle.Offset(, 2) = 3
               ElseIf raZelle.Column = 8 Then
                   raZelle.Offset(, 1) = 3
               End If
           End If
       Next raZelle
   End With
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Starte das Makro über Entwicklertools > Makros und wähle Test aus.

Dieses Makro sucht in den Spalten G und H nach dem Wert "2". Wenn es gefunden wird, trägt es in die entsprechende Zeile in Spalte I den Wert "3" ein.

Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Stelle sicher, dass du das Makro korrekt gestartet hast und dass die Blattnamen im Code stimmen.

  • Fehler: Werte werden nicht korrekt eingetragen.

    • Lösung: Überprüfe, ob die Werte in den Spalten G und H wirklich "2" sind und dass das Makro auf die richtige Tabelle zugreift.

Alternative Methoden

Wenn du lieber mit Excel-Formeln arbeiten möchtest, kannst du folgende Formeln verwenden, um ähnliche Ergebnisse zu erzielen:

  1. Formel in Zelle I3:

    =WENN(ODER(G3=2; H3=2); 3; "")

  2. Wenn du nur eintragen möchtest, wenn der Wert in einer Spalte vorhanden ist:

    =WENN((G3=2)+(H3=2)=1; 3; "")

Diese Formeln tragen den Wert "3" in die Zelle ein, wenn der Wert "2" in den Zellen G3 oder H3 vorhanden ist.

Praktische Beispiele

Angenommen, deine Tabelle sieht wie folgt aus:

G H I
2 3
5 2
4 1

Wenn du das Makro ausführst, wird die Tabelle so aussehen:

G H I
2 3 3
5 2 3
4 1

Tipps für Profis

  • Makro optimieren: Du kannst das Makro anpassen, um mehrere Werte gleichzeitig zu prüfen oder um eine Rückmeldung zu erhalten, wenn das Makro ausgeführt wird.
  • Fehlerbehandlung einbauen: Verwende On Error Resume Next, um unerwartete Fehler während der Ausführung des Makros zu vermeiden.
  • Makros automatisieren: Du kannst das Makro so einstellen, dass es bei jeder Änderung in den Zellen G oder H automatisch ausgeführt wird.

FAQ: Häufige Fragen

1. Wie kann ich das Makro für andere Werte anpassen?
Ändere einfach die Werte in den If-Bedingungen im VBA-Code.

2. Kann ich das Makro auch für mehrere Tabellen verwenden?
Ja, du musst nur den Blattnamen in dem Code anpassen.

3. Was mache ich, wenn der Wert nicht vorhanden ist?
Du kannst die Else-Bedingung im VBA-Code verwenden, um einen alternativen Wert oder eine Nachricht anzuzeigen.

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