Gegenteil von "like" in Excel VBA
Schritt-für-Schritt-Anleitung
Um das Gegenteil von "Like" in Excel VBA zu erreichen, kannst du die Not-Anweisung verwenden. Hier ist eine Schritt-für-Schritt-Anleitung, wie du dies umsetzen kannst:
-
Öffne den VBA-Editor in Excel (Drücke ALT + F11).
-
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject" > Einfügen > Modul.
-
Füge den folgenden Code ein:
Dim i As Integer
Dim lZeile As Integer
lZeile = Cells(Rows.Count, 1).End(xlUp).Row 'Bestimmt die letzte Zeile
For i = 2 To lZeile
If Cells(i, 1) = Cells(i - 1, 1) And Not (Cells(i, 17) Like "Gegen*") Then
Cells(i, 20) = Cells(i - 1, 20) & ", " & Cells(i, 17)
Else
Cells(i, 20) = Cells(i, 17)
End If
Next i
-
Anpassen der Zellen: Stelle sicher, dass die Zellreferenzen (z.B. Cells(i, 17)) zu deinem spezifischen Arbeitsblatt passen.
-
Führe das Skript aus, um das gewünschte Ergebnis zu erzielen.
Häufige Fehler und Lösungen
-
Problem: Der Code funktioniert nicht, weil die Bedingung nicht richtig formuliert ist.
- Lösung: Stelle sicher, dass du die
Not-Anweisung direkt vor der Like-Anweisung platzierst, wie im obigen Beispiel.
-
Problem: Du erhältst unerwartete Werte in der Zelle.
- Lösung: Überprüfe die Zelleninhalte und stelle sicher, dass die richtigen Werte in Spalte 17 vorhanden sind.
Alternative Methoden
Wenn du nach einer alternativen Möglichkeit suchst, um das Gegenteil von "Like" zu verwenden, kannst du auch die InStr-Funktion verwenden:
If Cells(i, 1) = Cells(i - 1, 1) And InStr(Cells(i, 17), "Gegen") = 0 Then
Cells(i, 20) = Cells(i - 1, 20) & ", " & Cells(i, 17)
Else
Cells(i, 20) = Cells(i, 17)
End If
Hier prüft InStr, ob der Teilstring "Gegen" nicht in der Zelle vorhanden ist.
Praktische Beispiele
Angenommen, du hast eine Liste von Werten in Spalte 17, und du möchtest nur die Werte in Spalte 20 einfügen, wenn sie nicht mit "Gegen" beginnen. Hier ist ein Beispiel:
| Spalte 17 |
Spalte 20 |
| Test |
Test |
| Gegen1 |
|
| Beispiel |
Beispiel |
| Gegen2 |
|
| Beispiel2 |
Beispiel2 |
Der Code wird nur die Werte "Test", "Beispiel" und "Beispiel2" in Spalte 20 einfügen.
Tipps für Profis
- Verwende Kommentare: Kommentiere deinen Code, um die Logik verständlicher zu machen.
- Vermeide magische Zahlen: Definiere Konstanten für wichtige Werte, um die Lesbarkeit zu erhöhen.
- Teste mit verschiedenen Daten: Experimentiere mit unterschiedlichen Zellinhalten, um sicherzustellen, dass dein Code robust ist.
FAQ: Häufige Fragen
1. Was ist das Gegenteil von "like" in Excel VBA?
Das Gegenteil von "like" in Excel VBA wird durch die Verwendung von Not vor der Like-Anweisung erreicht.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser Code funktioniert in allen gängigen Excel-Versionen, die VBA unterstützen. Achte jedoch darauf, dass die Syntax korrekt ist.