Sub letztefuellen()
Dim irow As Integer
irow = Cells(Rows.Count, 1).End(xlUp).Row
IF [BEDINGUNG] THEN Range("A" & irow) = "-"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim letzte As Range
Shapes("Textfeld 44").Visible = False
If [o301] > 0 Then
Set letzte = Range("c65536").End(xlUp)
With Shapes("Textfeld 44")
.Visible = True
.Top = letzte.Top
.Left = letzte.Left + letzte.Width
End With
End If
End Sub
Um eine Zelle in Excel mit einem Zeichen zu füllen, wenn eine bestimmte Bedingung erfüllt ist, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung, wie du das umsetzt:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf „VBAProject (DeineDatei.xlsx)“ > Einfügen > Modul.
Kopiere und füge den folgenden Code in das Modul ein:
Sub ZelleFuellen()
If Range("A2") = "hallo" Then
Range("A1") = "-"
End If
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Um das Makro auszuführen, gehe zu Entwicklertools > Makros, wähle „ZelleFuellen“ aus und klicke auf „Ausführen“.
Fehler: „Typenübereinstimmung“ beim Ausführen des Codes.
A2 tatsächlich den erwarteten Wert enthält.Fehler: Die Zelle wird nicht gefüllt.
Range("A2") = "hallo") tatsächlich erfüllt ist.Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch die Funktion „WENN“ in Excel verwenden. Hier ist ein Beispiel:
A1.Gib die folgende Formel ein:
=WENN(A2="hallo"; "-"; "")Diese Methode nutzt die Excel-Funktionalität, um die Zelle basierend auf der Bedingung zu füllen.
Hier sind einige Beispiele, wie du die VBA-Funktionalität nutzen kannst, um Zellen zu füllen:
Fülle die letzte gefüllte Zelle in der Spalte A:
Sub letztefuellen()
Dim irow As Integer
irow = Cells(Rows.Count, 1).End(xlUp).Row
If Range("O301") > 0 Then Range("A" & irow) = "-"
End SubTextfeld sichtbar machen und Zelle füllen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim letzte As Range
Shapes("Textfeld 44").Visible = False
If Range("O301") > 0 Then
Set letzte = Range("C65536").End(xlUp)
With Shapes("Textfeld 44")
.Visible = True
.Top = letzte.Top
.Left = letzte.Left + letzte.Width
End With
Range("C" & (1 + letzte.Row)) = "-"
End If
End SubOn Error Resume Next und On Error GoTo 0, um die Fehlerbehandlung in deinem Code zu verbessern.1. Wie kann ich das Zeichen, das ich in die Zelle schreibe, ändern?
Du kannst das Zeichen in deinem VBA-Code oder in der Excel-Formel verändern. Ändere einfach Range("A1") = "-" in das gewünschte Zeichen.
2. Welche Excel-Version benötige ich für VBA?
VBA ist in den meisten aktuellen Excel-Versionen verfügbar, einschließlich Excel 2016, 2019 und Microsoft 365. Achte darauf, dass die Entwicklertools aktiviert sind.