Text in Spalte A und Spalte B eintragen, wenn in Spalte C Inhalt vorhanden ist
Schritt-für-Schritt-Anleitung
Um in Excel Text in Spalte A und Spalte B automatisch einzutragen, wenn in Spalte C ein Wert vorhanden ist, kannst Du eine VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu starten.
-
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere und füge den folgenden Code in das Modul ein:
Sub Test_C_Prüfung()
Dim a As Long
Range("C65536").End(xlUp).Activate
a = ActiveCell.Row
For i = 1 To a
If Cells(i, 3) <> "" Then
Cells(i, 1) = "Server 1"
Cells(i, 2) = "Firma Ultimo"
End If
Next i
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Drücke ALT + F8, wähle Test_C_Prüfung und klicke auf Ausführen.
Dieser Code überprüft jede Zelle in Spalte C und trägt "Server 1" in Spalte A und "Firma Ultimo" in Spalte B ein, sobald er einen nicht-leeren Wert in Spalte C findet.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du kein VBA verwenden möchtest, kannst Du auch die Funktion WENN in Excel nutzen. Hier ein Beispiel:
-
Gehe zu Zelle A1 und füge folgende Formel ein:
=WENN(C1<>"", "Server 1", "")
-
In Zelle B1 füge diese Formel ein:
=WENN(C1<>"", "Firma Ultimo", "")
-
Ziehe die Formeln bis zur gewünschten Zeile nach unten.
Diese Methode ist einfacher, erfordert jedoch, dass Du die Formeln manuell einfügst.
Praktische Beispiele
Hier ist ein praktisches Beispiel, wie das Makro in einer realen Excel-Tabelle funktioniert:
-
Angenommen, Du hast die folgenden Werte in Spalte C:
- C1: "Test"
- C2: ""
- C3: "Beispiel"
-
Nach Ausführen des Makros wird die Tabelle so aussehen:
- A1: "Server 1", B1: "Firma Ultimo"
- A2: "", B2: ""
- A3: "Server 1", B3: "Firma Ultimo"
Das Makro hat nur in den Zeilen A1 und A3 Text eingefügt, da in Spalte C nur in diesen Zeilen Werte vorhanden waren.
Tipps für Profis
-
Verwende Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.
-
Wenn Du die Leistung verbessern möchtest, kannst Du die Bildschirmaktualisierung und die Berechnung vorübergehend deaktivieren:
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' Dein Code hier
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
-
Achte darauf, den Code regelmäßig zu speichern, um Verlust von Arbeit zu vermeiden.
FAQ: Häufige Fragen
1. Wie ändere ich die Spalten, in die der Text eingetragen wird?
Du kannst die Zahlen in Cells(i, 1) und Cells(i, 2) anpassen. 1 steht für Spalte A und 2 für Spalte B.
2. Funktioniert das Makro in allen Excel-Versionen?
Ja, das VBA-Skript sollte in den meisten Excel-Versionen funktionieren, die VBA unterstützen, einschließlich Excel 2010 und neuer.
3. Kann ich das Makro anpassen, um andere Texte einzufügen?
Ja, ändere einfach die Texte in den Zeilen Cells(i, 1) = "Server 1" und Cells(i, 2) = "Firma Ultimo" nach Deinen Wünschen.