Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelleninhalt unter Bedingung ändern

Forumthread: Zelleninhalt unter Bedingung ändern

Zelleninhalt unter Bedingung ändern
01.04.2019 11:11:34
Maxi
Hallo zusammen,
ich bin ein Anfänger was Excel angeht. Daher hätte ich eine Frage an euch; vielleicht könnt ihr mir ja helfen.
Ausgangslage: Ich habe eine sehr große Tabelle mit ca 5000 Zeilen. Bei dieser soll, wenn in der Spalte AV ein bestimmter Wert in einer Zelle steht( 6(a) oder 6(b) oder 6(c) ), der Inhalt in der entsprechenden Zelle aber in der Spalte AX geändert werden. In der Zelle in der in der Spalte AX steht bereits ein Text. (not relevant). Muss dieser davor gelöscht werden oder kann er einfach überschrieben werden?
Ich hoffe ich konnte mein Problem verständlich darstellen.
Vielen Dank schon mal für eure Hilfe!
Viele Grüße!
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt unter Bedingung ändern
01.04.2019 13:41:10
Maxi
Vielen lieben Dank Alexandra!
Funktioniert super! :)
Anzeige
;
Anzeige

Infobox / Tutorial

Zelleninhalt unter Bedingung ändern in Excel


Schritt-für-Schritt-Anleitung

Um den Zelleninhalt in Excel unter bestimmten Bedingungen zu ändern, kannst du die „Wenn“-Funktion und eine einfache VBA-Makro-Programmierung verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code ein:

    Sub ZelleninhaltAendern()
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("DeinBlattname") ' Ersetze "DeinBlattname" mit dem tatsächlichen Namen deiner Tabelle
    
       Dim i As Long
       For i = 1 To 5000 ' Anzahl der Zeilen anpassen
           If ws.Cells(i, 48).Value = "6(a)" Or ws.Cells(i, 48).Value = "6(b)" Or ws.Cells(i, 48).Value = "6(c)" Then
               ws.Cells(i, 49).Value = "Neuer Inhalt" ' Hier den neuen Inhalt einfügen
           End If
       Next i
    End Sub
  5. Schließe den VBA-Editor.

  6. Führe das Makro aus, indem du zu Entwicklertools > Makros gehst und das Makro auswählst.

So wird der Inhalt in der Spalte AX geändert, wenn die Bedingungen in der Spalte AV erfüllt sind.


Häufige Fehler und Lösungen

  • Fehler: "Das Makro kann nicht ausgeführt werden."

    • Lösung: Stelle sicher, dass du die Makros in deinen Excel-Einstellungen aktiviert hast.
  • Fehler: "Die Zellen bleiben unverändert."

    • Lösung: Überprüfe, ob die Spaltennummern (48 für AV und 49 für AX) korrekt sind.

Alternative Methoden

Wenn du keine VBA-Kenntnisse hast, kannst du auch die Funktion „SVERWEIS“ in Kombination mit „WENN“ verwenden:

  1. In Zelle AX1 (oder der entsprechenden Zelle):

    =WENN(ODER(AV1="6(a)"; AV1="6(b)"; AV1="6(c)"); "Neuer Inhalt"; AX1)
  2. Ziehe die Formel nach unten, um sie auf weitere Zeilen anzuwenden.

Diese Methode ist einfacher, funktioniert jedoch nur, wenn du eine kleinere Anzahl an Bedingungen hast.


Praktische Beispiele

Angenommen, du hast in Spalte AV die Werte „6(a)“, „6(b)“ und „6(c)“ und möchtest in Spalte AX den Text „Änderung erforderlich“ eingeben:

  • Nach dem Ausführen des VBA-Makros oder der Formel wird in den Zellen der Spalte AX, die den Bedingungen entsprechen, der Text „Änderung erforderlich“ angezeigt.

Tipps für Profis

  • Nutze die Bedingte Formatierung, um die Zellen hervorzuheben, die geändert werden, bevor du das Makro ausführst.
  • Experimentiere mit der Fehlerbehandlung in deinem VBA-Code, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Muss ich den vorhandenen Inhalt in AX löschen? Nein, der Inhalt wird einfach überschrieben. Wenn du den alten Inhalt behalten möchtest, musst du eine andere Strategie wählen.

2. Funktioniert das auch in Excel Online? VBA-Makros sind in Excel Online nicht verfügbar. Du musst die Desktop-Version von Excel verwenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige