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:
-
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
-
Einfügen eines neuen Moduls:
- Klicke auf
Einfügen
> Modul
.
-
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
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
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
Alternative Methoden
Wenn du lieber mit Excel-Formeln arbeiten möchtest, kannst du folgende Formeln verwenden, um ähnliche Ergebnisse zu erzielen:
-
Formel in Zelle I3:
=WENN(ODER(G3=2; H3=2); 3; "")
-
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:
Wenn du das Makro ausführst, wird die Tabelle so aussehen:
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.