Zellen festen Wert zuweisen

Forumthread: Zellen festen Wert zuweisen

28.07.2022 09:35:50

Wolfgang

Guten Morgen Excel Team,
ich hätte da mal wieder ein kleines Problem gerne gelöst.
In Spalte B werden Werte geladen. Wenn B2:B3:B4 etc. den Wert "X" hat soll nach dem Makro lauf M2:M3:M4-N2:N3:N4-O2:O3:O4 immer den selben Wert
zeigen. Im Anhang wird es deutlicher. Hoffe ich.
https://www.herber.de/bbs/user/154402.xlsx
Grüße
Wolfgang

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen festen Wert zuweisen

28.07.2022 09:42:24

Rudi
AW: Zellen festen Wert zuweisen

28.07.2022 11:21:53

Wolfgang
als Ansatz zum Selbstausbau

28.07.2022 13:43:57

Rudi
AW: als Ansatz zum Selbstausbau

28.07.2022 14:59:15

Wolfgang

AW: Zellen festen Wert zuweisen

28.07.2022 09:42:24

Rudi

Hallo,
wo kommen dir Werte in M:O her?
Gruß
Rudi

AW: Zellen festen Wert zuweisen

28.07.2022 11:21:53

Wolfgang

Hallo Rudi,
das sind feste Werte. Die gebe ich zur Zeit noch per Hand ein.
E.G K0OP steht für 0C-CA-00. Die sollen dann in die Spalten M-N-O geladen werden
IF B2 = K0OP Then M2 should be 0C, N2 should be CA, O2 should be 00
IF B3 = K0OU Then M3 should be 0C, N3 should be CA, O3 should be 00
IF B4 = P2JO Then M4 should be 0S, N4 should be SA, O3 should be 48
Ich hoffe sehr ich habe es jetzt verständlich rübergebracht.
Grüße
Wolfgang

als Ansatz zum Selbstausbau

28.07.2022 13:43:57

Rudi

Hallo,


Sub Wolfgang()
Dim rngC As Range
For Each rngC In Range(Cells(2, 2), Cells(1, 2).End(xlDown))
Select Case rngC
Case "K0OP": rngC.Offset(, 11).Resize(, 3) = Split("0C CA 00")
Case "K0OU": rngC.Offset(, 11).Resize(, 3) = Split("0C CA 00")
Case "P2JO": rngC.Offset(, 11).Resize(, 3) = Split("0S SA 48")
'etc
End Select
Next rngC
End Sub

Gruß
Rudi

AW: als Ansatz zum Selbstausbau

28.07.2022 14:59:15

Wolfgang

SUPER vielen Herzlichen Dank Rudi.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel Zellen einen festen Wert zuzuweisen, kannst du ein einfaches VBA-Makro verwenden. Folge den untenstehenden Schritten:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen, dann auf Modul, um ein neues Modul zu erstellen.

Kopiere den folgenden Code in das Modul:

Sub ZelleWertZuweisen()
   Dim rngC As Range
   For Each rngC In Range(Cells(2, 2), Cells(1, 2).End(xlDown))
       Select Case rngC
           Case "K0OP": rngC.Offset(, 11).Resize(, 3) = Split("0C CA 00")
           Case "K0OU": rngC.Offset(, 11).Resize(, 3) = Split("0C CA 00")
           Case "P2JO": rngC.Offset(, 11).Resize(, 3) = Split("0S SA 48")
           ' Weitere Bedingungen können hier hinzugefügt werden
       End Select
   Next rngC
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle das Makro ZelleWertZuweisen aus und klicke auf Ausführen.

Jetzt werden die festen Werte entsprechend den Bedingungen in den Spalten M, N und O zugewiesen.

Häufige Fehler und Lösungen

Fehler: Makro wird nicht ausgeführt.
- Lösung: Stelle sicher, dass die Makros in deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Trust Center-Einstellungen > Makroeinstellungen und aktiviere die entsprechenden Optionen.
Fehler: Werte erscheinen nicht in den richtigen Zellen.
- Lösung: Überprüfe, ob die Werte in Spalte B genau mit den im Code angegebenen Werten übereinstimmen. Achte auf Groß- und Kleinschreibung.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch die Funktion WENN verwenden, um feste Werte zuzuweisen:

In Zelle M2 kannst du die folgende Formel eingeben:

=WENN(B2="K0OP";"0C";WENN(B2="K0OU";"0C";WENN(B2="P2JO";"0S";"")))

Ziehe die Formel nach unten, um sie in die Zellen M2 bis M4 anzuwenden.
Wiederhole den Vorgang für die Spalten N und O mit den entsprechenden Werten.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie die Zellen in Excel festen Werten zugewiesen werden:

Angenommen, du hast in Zelle B2 den Wert "K0OP". Nach Ausführung des Makros wird in M2 der Wert "0C", in N2 der Wert "CA" und in O2 der Wert "00" erscheinen.

B2: K0OP
M2: 0C
N2: CA
O2: 00

Tipps für Profis

Nutze die OFFSET-Funktion strategisch, um dynamisch auf benachbarte Zellen zuzugreifen.
Kommentiere deinen VBA-Code ausführlich, um künftige Anpassungen zu erleichtern.
Überlege, wie du die Leistung deines Codes verbessern kannst, indem du große Bereiche effizient bearbeitest.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen?
Du kannst weitere Case-Bedingungen im Select Case-Block hinzufügen, um mehr feste Werte zuzuweisen.

2. Funktioniert dies in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen. Achte darauf, dass du Macro-fähige Arbeitsmappen verwendest (.xlsm).

Beliebteste Forumthreads (12 Monate)

Forumthread: Zellen festen Wert zuweisen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Zellen in Excel festen Wert zuweisen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread