Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen festen Wert zuweisen

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
Anzeige
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
Anzeige
AW: als Ansatz zum Selbstausbau
28.07.2022 14:59:15
Wolfgang
SUPER vielen Herzlichen Dank Rudi.

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige