Office: [Excel 2k] Eingaben in gleicher Zelle ersetzen

Helfe beim Thema [Excel 2k] Eingaben in gleicher Zelle ersetzen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Huhu, ich habe schon wieder einen Wunsch, dessen Realisierung meine (nicht vorhandenen) VBA-Kenntnisse deutlich übersteigt: Und zwar möchte ich,... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von magic59, 17. März 2008.

  1. magic59 Erfahrener User

    [Excel 2k] Eingaben in gleicher Zelle ersetzen


    Huhu,

    ich habe schon wieder einen Wunsch, dessen Realisierung meine (nicht vorhandenen) VBA-Kenntnisse deutlich übersteigt:

    Und zwar möchte ich, dass eine Eingabe in einer Zelle durch einen von der Eingabe abhängigen Wert wie im folgenden Beispiel ersetzt wird:
    Eingabe: 1 / soll werden zu: [text1]
    Eingabe: 2 / soll werden zu: [text2]
    ...

    Ich hoffe, es ist klar, was ich meine.

    Und wieder in Pseudocode:

    Prüfe, ob sich Zelle in einem bestimmten Bereich befindet:
    If ja:
    If Eingabe = 1
    Ersetze Zellinhalt durch: [text1]
    If Eingabe = 2
    Ersetze zellinhalt durch: [text2]
    End if ja
    If nein:
    mache nichts

    Ich nehme an, dass der "If ja"-Zweig als Case gestaltet werden kann, aber wie man das genau lösen kann, ist mir nicht klar.

    Ich brauche aber auch nicht die ganze Formel, zum Grosteil lässt sich wohl die Formel wieder verwenden, die Schatzi mir bei meinem letzten Problem erstellt hat, ich gebe sie mal im Folgenden wieder, die Case-Anweisung bzw. die Ersetzen-Funktion müsste dann vermutlich in den (mit =>) markierten Bereichen stehen.

    Code:
    ' Erfolgt innerhalb der angebenenen Bereich (Range(..)) eine Eingabe,
    ' soll diese in Grossbuchstaben umgewandelt werden
    Private Sub Worksheet_Change(ByVal target As Range)
    
        ' Variablendeklaration
        Dim bereich As Range, Zelle As Range
    
        ' Abschalten der Excel-Events
        Application.EnableEvents = False
    
        ' Definition des jeweils betreffenden Bereiches
        ' und Aufruf der Umwandelfunktion
        Set bereich = Range("E13:E52")
        Call formatToUppercase(bereich, target)
    
        Set bereich = Range("K13:M52")
        Call formatToUppercase(bereich, target)
        
        Set bereich = Range("Q13:S52")
        Call formatToUppercase(bereich, target)
        
        ' Wiedereinschalten der Excel-Events
        Application.EnableEvents = True
    
    End Sub
    
    ' Funktion zum Umwanden in Grossbuchstaben
    Private Sub formatToUppercase(bereich As Range, target As Range)
    
        ' Prüfe, ob sich target und bereich überschneiden
        If Not Intersect(target, bereich) Is Nothing Then
            ' Prüfe, ob mehr als eine Zelle markiert ist
            If target.Count > 1 Then
                ' Für jede markierte Zelle
                For Each Zelle In target
                    ' Prüfe, ob die einzelne markierte Zelle im Bereich liegt und
                    ' ersetze ggf. die Eingabe in der Zelle
                    => Case-Anweisung
                ' Weiterschaltung der Schleife
                Next Zelle
            ' Nur eine Zelle ist markiert (also aktive Zelle)
            Else
                ' Wandle die Eingabe in der Zelle in Grossbuchstaben um
                => Ersetzen-Funktion
            End If
        End If
    
    End Sub
    
    
     
    magic59, 17. März 2008
    #1
  2. schatzi Super-Moderator
    Hallo!

    Verstehe ich dich so richtig?
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bereich As Range, Zelle As Range
    Set Bereich = Range("A1:B10")
    For Each Zelle In Target
    If Not Intersect(Bereich, Zelle) Is Nothing Then ersetze Zelle
    Next Zelle
    End Sub
    
    Sub ersetze(x As Range)
    Select Case CStr(x.Value)
    Case "1": x = "[text1]"
    Case "2": x = "[text2]"
    Case "Hallo": x = "Hallo Du"
      'usw.
    End Select
    End Sub
     
    schatzi, 17. März 2008
    #2
  3. magic59 Erfahrener User
    Genau das habe ich gewollt, also...

    ...wieder mal ein herzliches Dankeschön:


    Code:
                        "M,        .mM"
                         IMIm    ,mIM"
                         ,MI:"IM,mIMm
              "IMmm,    ,IM::::IM::IM,          ,m"
                 "IMMIMMIMm::IM:::::IM""==mm ,mIM"
        __      ,mIM::::::MIM:::::::IM::::mIMIM"
     ,mMIMIMIIMIMM::::::::mM::::::::IMIMIMIMMM"
    IMM:::::::::IMM::::::M::::::::IIM:::::::MM,
     "IMM::::::::::MM:::M:::::::IM:::::::::::IM,
        "IMm::::::::IMMM:::::::IM:::::::::::::IM,
          "Mm:::::::::IM::::::MM::::::::::::::::IM,
           IM:::::::::IM::::::MM::::::::::::::::::IM,
            MM::::::::IM:::::::IM::::::::::::::::::IM
            "IM::::::::IM:::::::IM:::::::::::::::::IM;.
             "IM::::::::MM::::::::IM::::::::::mmmIMMMMMMMm,.
               IM::::::::IM:::::::IM::::mIMIMM"""". .. "IMMMM
               "IM::::::::IM::::::mIMIMM"". . . . . .,mM"   "M
                IMm:::::::IM::::IIMM" . . . . . ..,mMM"
                "IMMIMIMMIMM::IMM" . . . ._.,mMMMMM"
                 ,IM". . ."IMIM". . . .,mMMMMMMMM"
               ,IM . . . .,IMM". . . ,mMMMMMMMMM"
              IM. . . .,mIIMM,. . ..mMMMMMMMMMM"
             ,M"..,mIMMIMMIMMIMmmmMMMMMMMMMMMM"
             IM.,IMI"""        ""IIMMMMMMMMMMM
            ;IMIM"                  ""IMMMMMMM
            ""                         "IMMMMM
                                         "IMMM
                                          "IMM,
                                           "IMM
                                            "MM,
                                             IMM,              ______   __
                            ______           "IMM__        .mIMMIMMIMMIMMIMM,
                       .,mIMMIMMIMM, ,mIMM,   IMM"""     ,mIM". . . . "IM,..M,
                     ,IMMM' . . . "IMM.\ "M,  IMM      ,IM". . . .  / :;IM \ M,
                   .mIM' . . .  / .:"IM.\ MM  "MM,    ,M". . .  / .;mIMIMIM,\ M
                  ,IM'. . .  / . .:;,IMIMIMMM  IMM   ,M". .  / .:mIM"'   "IM,:M
                 ,IM'. . . / . .:;,mIM"  `"IMM IMM   IM. .  / .mM"         "IMI
                ,IM . .  / . .:;,mIM"      "IMMMMM   MM,.  / ,mM            "M'
                IM'. .  / . .;,mIM"          "IIMMM ,IMIM,.,IM"
                IM . . / . .,mIM"              IMMMMMMM' """
                `IM,.  / ;,mIM"                 IIMMM
                 "IMI, /,mIM"                 __IMMM
                   "IMMMM"                   """IMM
                     ""                         IMM
                                                IMM__
                                                IMM"""
                                                IMM
                                                IMM
                                              __IMM
                                             """IMM
                                                IMM
                                                IMM
                                                IMM__
                                                IMM"""
                                                IMM
    
     
    magic59, 17. März 2008
    #3
Thema:

[Excel 2k] Eingaben in gleicher Zelle ersetzen

Die Seite wird geladen...
  1. [Excel 2k] Eingaben in gleicher Zelle ersetzen - Similar Threads - Excel Eingaben gleicher

  2. Excel Powerquery: Nach Schließen & Laden Fehlermeldung [DataFormat.Error]

    in Microsoft Excel Hilfe
    Excel Powerquery: Nach Schließen & Laden Fehlermeldung [DataFormat.Error]: Hallo zusammen! Ich bin gerade dabei von einem Teams-Sharepoint-Ordner Daten mit Power-Query abzurufen. Ich lade die Daten über "Daten Abrufen -> Datei -> Sharepoint-Ordner" und gebe dann den...
  3. Cursor springt immer in eine Zelle darüber

    in Microsoft Excel Hilfe
    Cursor springt immer in eine Zelle darüber: Hallo zusammen meine Frau hat mich gebeten, ihr derzeitiges Excel Problem bei euch mal anzusprechen: Man kann schlichtweg nicht mehr mit Excel arbeiten. Egal, welche Taste man drückt (Buchstaben,...
  4. Excel "Hilfstabelle" soll als PopUp zur Eingabe erscheinen

    in Microsoft Excel Hilfe
    Excel "Hilfstabelle" soll als PopUp zur Eingabe erscheinen: Hallo zusammen, ich habe da mal wieder ein Problem. Leider habe ich trotz intensivem "Googlen" nicht so den richtigen Lösungsansatz gefunden. Ich habe in einer Tabelle eine kleine "Hilfstabelle"...
  5. Excel Probleme bei Eingabe einer Nebenbedingung

    in Microsoft Excel Hilfe
    Excel Probleme bei Eingabe einer Nebenbedingung: Hallo zusammen, ich benötige Hilfe bei der Eingabe einer Nebenbedingung bei Lösung durch den Excel Solvier. Die Nebenbedingung ist, dass alle 15 Personen ein zusätzlicher Raum ohne Personen...
  6. Eingaben in 2 Feldern auf Plausibilität prüfen

    in Microsoft Excel Hilfe
    Eingaben in 2 Feldern auf Plausibilität prüfen: Hallo liebe Helferlein *;)* Folgende Aufgabenstellung: Eingabe in Zelle A1 muss einen Wert (auch "0") haben. Wenn nein, Hinweis "Pflichtfeld" Auch Zelle A2 muss einen Wert (auch "0") haben. Wenn...
  7. Excel: Eingabe einer Verlinkung/Verknüpfung - Folge beim Start/Öffnen: Fehlermeldung zu einer toten

    in Microsoft Excel Hilfe
    Excel: Eingabe einer Verlinkung/Verknüpfung - Folge beim Start/Öffnen: Fehlermeldung zu einer toten: Hallo zusammen, Ich habe eine alte Excel Datei als Vorlage genutzt. Ich habe diese auch gesäubert von alten Formeln und Verknüpfungen (denke ich zumindest). Wenn ich nun eine Verknüpfung erstelle...
  8. Excel Pläne durch Eingabe ausgeben lassen

    in Microsoft Excel Hilfe
    Excel Pläne durch Eingabe ausgeben lassen: Hallo, vielleicht kann mir hier jemand helfen. Ich benötige für die Arbeit eine (oder mehrere) Formel, die mir unterschiedliche Pläne durch Eingabe ausspuckt. Beispiel: Ich habe mehrere...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden