Supportnet / Forum / Tabellenkalkulation
Wert einer Zelle auslesen - sverweis
Frage
Hallo zusammen
in einer tabelle habe ich eine Zahl, die einem Benutzer zugeordnet ist.
Mit sverweis könnte ich diesen Benutzer suchen, doch leider ist das Ergebnis selber nicht auf der gleichen Zeilenhöhe, sondern eine Zeile weiter unten und diese Zeile ist nicht beschriftet.
Hier das Bsp:
Spalte X Spalte X+1
Zeile X : Stefan
Zeile X+1 1000
Da die Zahl sich ändert, weiss ich nicht, wie diese Zahl automatisch in eine ander Tabelle eingelesen werden kann.
Danke für allfällige Antworten.
Gruss
Antwort 1 von rolandaa
hallo, weis leider nicht genau was du suchst, hätte aber eventuell eine anregung über vba.
funktionserklärung: suchzahl eingeben - gehe zu zelle A1 - laufe nach unten und suche die zahl - bei nicht finden abbrechen, an sonsten gehe in die spalte B? neben der gefundenen zahl un zeige diese an.
Sub suche()
Dim ant As Integer
Dim ant2 As String
ant = InputBox("Bittegeben sie die Zahl ein", "Eingabe")
If ant = 0 Then Exit Sub
Range("A1").Select
Do
If ActiveCell.Value = "" Then
MsgBox "Zahl nicht vorhanden"
Exit Sub
End If
If ActiveCell.Value = ant Then
ant2 = ActiveCell.Offset(0, 1).Range("A1").Value
MsgBox "der gesuchte Name zur Zahl ist " & ant2, , "Ergebnis"
Exit Sub
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End Sub
vieleicht akannst du etwas damit anfangen.
mfg
roland
funktionserklärung: suchzahl eingeben - gehe zu zelle A1 - laufe nach unten und suche die zahl - bei nicht finden abbrechen, an sonsten gehe in die spalte B? neben der gefundenen zahl un zeige diese an.
Sub suche()
Dim ant As Integer
Dim ant2 As String
ant = InputBox("Bittegeben sie die Zahl ein", "Eingabe")
If ant = 0 Then Exit Sub
Range("A1").Select
Do
If ActiveCell.Value = "" Then
MsgBox "Zahl nicht vorhanden"
Exit Sub
End If
If ActiveCell.Value = ant Then
ant2 = ActiveCell.Offset(0, 1).Range("A1").Value
MsgBox "der gesuchte Name zur Zahl ist " & ant2, , "Ergebnis"
Exit Sub
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
End Sub
vieleicht akannst du etwas damit anfangen.
mfg
roland

