Ein Wert aus 3 Werten von Zellen übernehmen

Siegfried Pütz · 2024-11-03T22:15:29+00:00

Wie kann ich z.B. einen Wert aus (E2 oder F2 oder G2 in Zelle D2 übertragen? (E2=1)(F2=2)G2=3) eine dieser Zellinhalte soll in "D2" erscheinen. Wer kann helfen bzw. eine Formel beschreiben?

Lieber Siegfried,
ich kenne dieses Forum bestimmt schon über 20 Jahre, warum auch immer scheinen
die heutigen Fragesteller es nicht mehr für nötig zu halten gewisse ungeschriebene Umgangsformen
zu wahren, Begin z.B. mit einem freundlichen Guten Abend Forum, Liebe Helfer, gerne auch ihr Excelgötter höret mich an ...
irgendwas in der Richtung ... abschließend kommt sowas wie ... vielen Dank im Voraus oder so auch immer ganz gut.

Es ist einfach nun traurig wie sich diese Gesellschaft mittlerweile kund tut, alle haben nur noch Rechte aber keine Pflichten.
Warum schreibe ich dir das und verwende auch dafür wertvolle Zeit meiner selbst ? Der Inhalt deiner Frage zeigt auch dass
du offensichtlich noch ganz am Anfang deiner Excelerfahrungen stehst, auch du wirst dich wie alle hier irgendwie weiterentwickeln
auf diese Weise sicherlich langsamer und schwieriger. Sei dir bitte nur bewusst, dass alle hier in diesem Forum meistens
versuchen Anderen zu helfen, mach ich auch hin und wieder, ich nehme auch gerne immer wieder selbst Hilfe hier im Anspruch,
jeder der sich hier innerlich bereit erklärt Jemandem zu helfen, nutzt dafür Zeit & Aufwand um dir sein Wissen zu teilen und dich
damit letztlich zu schulen. Demnach sollten wir alle diesem Umstand Respekt zollen indem wir zumindest die guten Umgangsformen
aufrecht erhalten, das macht es für alle angenehmer. Viele "alte Hasen" hier sind vermtl. auch dies bzgl. kaum noch aktiv
und das ist sehr schade.
Du kannst es dir einfacher machen wenn du diesen kleinen Rat etwas berücksichtigst und wirst dadurch auch sicherlich mehr adäquate
Erkenntnisse / Vorschläge erhalten, die auch du in einigen Jahren dann mal jungen Excel-Lernenden weitergeben kannst.

Zu deiner Frage :

Grundvoraussetzung dass du in irgendeine Zelle eine Formel eingeben kannst ( diese als Formel erkannt wird ) ist die Zellformatierung
jener Zelle - in dem Fall Standard ( und eben nicht Text ! ). Danach springst du in diese Zelle und beginnst deine Formel mit einem Gleichheitszeichen ( ist gleich, = )
nun musst du nur noch die Zelle anklicken, deren Wert du dort drin stehen haben willst und mit Return abschließen.
Nur wird sobald in der ausgewählten Bezugszelle etwas darin steht, es in deiner Formelzelle erscheinen. Soweit mal zum direkten einfachen Wertspiegeln.
Wenn du nun aber drei Bezugszellen hast, deren Werte du in deiner Formelzelle abfangen möchtest, so musst du nun noch mehr Info zu
deiner Frage geben. Hier fängt es dann an interessant zu werden, da man ab hier nun etliche Bedingungen in jene Abfrage und der hierfür
explizit in Frage kommende Formel entwickeln kann , das wären klassisch Wenn( deine Frage ... ; dann ; ansonsten ) Formeln, die einzelnen Blöcke
davon kann man auch sehr vielfältig auslegen, eben je nachdem was du eigentlich haben willst, oder auch eine Verketten( Wert 1; Wert 2; Wert 3 ... ) Formel.

Dies mal aus meiner wertvollen Zeit für dich als Vorschuss in der Hoffnung das du zukünftig etwas mehr Enthusiasmus an den Tag legst, du musst keine
Romane schreiben wie ich hier, auch mit wenig Worten kann man den Knigge wahren.

Wünsche Dir viel Erfolg und falls dir das noch nicht hilft musst du deine Fragestellung eh noch nachbessern / vertiefen
LG Udo

Moin Sigfried,

mit einem Doppelklick anstatt einfachen.

klicke auf dem Reiter deines Arbeitsblatt und wähle "Code anzeigen". In der geöffneten Codepane, folgende Code kopieren:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Static R As Range

    If Not Intersect(Target, Range("A2:A8")) Is Nothing Then

        Set R = Target.EntireRow

        With Range("A2:B8,F2:F8,J2:J8").Font

            .ColorIndex = 16 'Grau

            .Bold = False 'nicht Fett

        End With

        With Intersect(R, Range("A2:B8,F2:F8,J2:J8")).Font

            .ColorIndex = 56 'Schwarz

            .Bold = True 'Fett

        End With

    ElseIf Not Intersect(Target, Range("C2:E8")) Is Nothing Then

        R.Cells(1, "B").Value = Target.Value

    ElseIf Not Intersect(Target, Range("G2:I8")) Is Nothing Then

        R.Cells(1, "F").Value = Target.Value

    ElseIf Not Intersect(Target, Range("K2:M8")) Is Nothing Then

        R.Cells(1, "J").Value = Target.Value

    ElseIf Not Intersect(Target, Range("A1")) Is Nothing Then

        If MsgBox("Spielstand zurücksetzen?", vbYesNo) = vbYes Then

            Range("B2:B8,F2:F8,J2:J8").ClearContents

        End If

    End If

    Cancel = True 'der Doppelklick soll keine weitere Auswirkung haben

End Sub

Funktionsweise:
Klicke auf dem Spieler in Spalte A um ihn zu aktivieren,
klicke dann auf die jeweilige Felder, um die Punkte zu allokieren,
klicke auf A1, um nach der Bestätigung den Spiel zurüczusetzen.

Viel Spass

VG
Yal

Ein Wert aus 3 Werten von Zellen übernehmen

Forumthread: Ein Wert aus 3 Werten von Zellen übernehmen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Ein Wert aus 3 Werten von Zellen übernehmen

Forumthread: Ein Wert aus 3 Werten von Zellen übernehmen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread