ich habe eine Tabelle, daraus soll ein Wert definiert werden.
Ich habe eine Mustertabelle anbei, da ist mein Wunsch beschrieben, ich krieg es leider nicht hin.
https://www.herber.de/bbs/user/148575.xlsm
mfg Michael
E | F | G | |
28 | 2000 | 19 | BLS |
29 | 1501 | 19 | BLS |
30 | 10,00 | ||
31 | 10,00 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
F28:F31 | =Hintergrund | ||
G28:G31 | =WENN(F28<>0;WENN(UND(F28=19;ODER(F27=F28;F28=F29));"BLS";"");"") |
definierte Namen | |||
Name | Bezieht sich auf | Tabelle | Z1S1-Formel |
Hintergrund | =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";FALSCH))+(0*JETZT()) | =GET.CELL(63,INDIRECT("ZS(-1)",FALSE))+(0*NOW()) |
Zahlenformate | |||
Zelle | Format | Inhalt | |
E28 | '0 "mm" | 2000 | |
E29 | '0 "mm" | 1501 | |
F28:F29 | '0,00_ ;[Rot]-0,00 ; | 19 | |
F30:F31 | '0,00_ ;[Rot]-0,00 ; | 10 |
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm |
Add-In-Version 25.23 einschl. 64 Bit |
XHTML-Tabelle zur Darstellung in Foren, einschl. Funktion zum Zurücklesen in eine Excel-Tabelle |
Sub Treffer()
Dim Bereich As Range
Dim Zeile As Long, Spalte As Long
Dim Ausgabe As String
Set Bereich = Worksheets("Elemente").Range("L6:R11")
Zeile = Evaluate("=MATCH(E29,Elemente!K6:K11,1)") '--Zeilennummer
Spalte = Evaluate("=MATCH(E28,Elemente!L5:R5,1)") '--Spaltennummer
Select Case Bereich.Cells(Zeile, Spalte).Interior.Color '--Abfrage welche Farbe
Case 16777215: Ausgabe = "B" '--wenn keine Farbe dann: Ausgabe = Ausgabewert "B"
Case 49407: Ausgabe = "B-S" '--wenn Orange dann: Ausgabe = Ausgabewert "B-S"
Case 5296274: Ausgabe = "B-S-H" '--wenn Gruen dann: Ausgabe = Ausgabewert "B-S-H"
End Select
Worksheets("Auftrag").Range("F27") = Ausgabe '-- Ausgabewert wird in zelle eingetragen
End Sub
gruss hary
Zeile = Evaluate("=MATCH(Auftrag!E29,Elemente!K6:K11,1)")
Spalte = Evaluate("=MATCH(Auftrag!E28,Elemente!L5:R5,1)")
gruss hary
Worksheets("Auftrag").Range("F27") = Ausgabe
nimm
Worksheets("Auftrag").Range("F27") = Bereich.Cells(Zeile, Spalte)
Du kannst aber auch gleich diese Formel eintragen wenn du nur den Wert haben moechtest.