If Abfrage Makro in Abhängigkeit von zwei Werten
Schritt-für-Schritt-Anleitung
Um das bestehende Makro anzupassen und die neuen Anforderungen zu integrieren, folge diesen Schritten:
-
Öffne dein Excel-Dokument und drücke ALT + F11
, um den VBA-Editor zu öffnen.
-
Finde das Makro Fiktive_Bezeichnung
in deinem Projekt.
-
Ersetze den bestehenden Code durch den folgenden:
Sub Fiktive_Bezeichnung()
Dim Zelle As Range
Sheets("STa").Select
For Each Zelle In Range(Cells(1, 2), Cells(Range("B10000").End(xlUp).Row, 1))
If Zelle.Value = "6201" Then
Zelle.Offset(0, 3).Value = "Abgabe01"
ElseIf Zelle.Value = "6301" Then
Zelle.Offset(0, 3).Value = "Abgabe02"
ElseIf IsNumeric(Zelle.Value) And Cells(Zelle.Row, 3).Value <= 50 Then
Zelle.Offset(0, 3).Value = "Abgabe03"
End If
Next Zelle
End Sub
-
Schließe den VBA-Editor und teste das Makro, indem du es ausführst.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du keine VBA-Makros verwenden möchtest, kannst du auch Excel-Formeln nutzen, um ähnliche Ergebnisse zu erzielen. Eine Formel könnte wie folgt aussehen:
=IF(AND(ISNUMBER(B1), C1 <= 50), "Abgabe03", "")
Diese Formel kannst du in Zelle E1 einfügen und nach unten ziehen, um sie auf die anderen Zeilen anzuwenden.
Praktische Beispiele
Angenommen, du hast die folgenden Daten in den Spalten B und C:
B |
C |
E |
6201 |
20 |
Abgabe01 |
6301 |
55 |
Abgabe02 |
500 |
45 |
|
Text |
30 |
|
400 |
50 |
Abgabe03 |
Mit dem oben angepassten Makro wird die Spalte E entsprechend befüllt, basierend auf den Bedingungen.
Tipps für Profis
- Verwende
Select Case
anstelle von mehreren If
-Bedingungen, um den Code übersichtlicher zu gestalten, besonders bei vielen Bedingungen.
- Kommentiere deinen Code, um die Logik hinter den Entscheidungen zu erklären, was die Wartung erleichtert.
- Teste dein Makro mit verschiedenen Datensätzen, um sicherzustellen, dass es unter allen Umständen funktioniert.
FAQ: Häufige Fragen
1. Frage
Kann ich das Makro auch für andere Spalten verwenden?
Ja, du kannst das Makro anpassen, indem du die Spaltenindizes im Code änderst. Achte darauf, dass die Logik der Bedingungen weiterhin passt.
2. Frage
Was mache ich, wenn ich keine Programmiererfahrung habe?
Du kannst die Schritte im Tutorial genau befolgen oder nach einem Excel-Spezialisten suchen, der dir bei der Implementierung helfen kann.