title image


Smiley Dazu kannst Du z.B. 'ne Select-Case-Struktur nehmen ...
Hallo Matze,



schreibe in I4 einen Deiner Werte rein und starte dann das Makro ...







Sub test()

  Dim d As String

  Select Case Sheets("Tabelle2").Range("I4").Value

    Case "084"

      d = Sheets("Tabelle2").Range("C14").Value

    Case "0815"

      d = Sheets("Tabelle2").Range("C15").Value

    Case "666"

      d = Sheets("Tabelle2").Range("C16").Value

    'Case ...

      '... usw ...

    Case Else

      d = ""

  End Select

  MsgBox d

End Sub





Code eingefügt mit Syntaxhighlighter 4.0







P.S. Wenn du statt des tatsächlichen Zellwertes lieber das formatierte Ergebnis aus der Zelle möchtest, dann tausche einfach die Eigenschaft Value gegen Text, also ...

... Range("C14").Text

Gruss


scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: