Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SVERWEIS auf variablen Bereich

SVERWEIS auf variablen Bereich
13.12.2002 10:53:19
Basti
Hallo,

ich habe folgendes Problem. Habe in den Zellen d5-15 eine leere Zellen,in denen man eine Projektnummer auswählen kann. Abhängig von der Auswahl möchte ich immer jeweils in Zelle e3 die zughörige Beschreibung anzeigen lassen. Wenn es nur eine Zelle wäre, wäre es mit SVERWEIS ja kein Problem, aber so muss ich ja den komletten Bereich abdecken.

Hat jemand eine Idee oder ist das unmöglich?

Grüße

22
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ZUSATZ
13.12.2002 10:54:17
Basti
es ist also gefordert, dass je nach aktiver "ProjektnummernZelle" die Beschreibung dort angezeigt wird...

Re: ZUSATZ
13.12.2002 10:58:37
Holger Levetzow
woher kommt die Beschreibung und was meinst Du mit kompletten Bereich?

Holger

Re: ZUSATZ
13.12.2002 11:02:49
Basti
Die Beschreibung kommt aus einem StammSheet, wo alle Projektdaten drinstehen. Mit kompletten Bereich meine ich den Auswahlbereich von d5-15. Dort ist in jeder Zelle die Auswahl einer Projektnummer möglich. Wenn der User als in d10 z.b. TEST001 eingibt soll in e3 die Beschreibung z.B. "Testprojekt" angezeigt werden...

Verständlich?

Re: ZUSATZ
13.12.2002 11:07:35
Holger Levetzow
steht in mehreren Zellen etwas drin? Wenn nicht, kannst Du doch alle zellen d5-15 verbinden und das Ergebnis für den SVerweis nutzen.

Holger

Anzeige
Re: ZUSATZ
13.12.2002 11:10:03
Basti
ja, es steht in mehreren Zellen was drin. Es handelt sich dabei um Zeiterfassung, jede Zeile kann also mit unterschiedlichen Projektnummer bestückt sein.

Das ist das Problem...

Re: ZUSATZ
13.12.2002 11:12:57
Holger Levetzow
und alle Kommentare sollen dann gleichzeitig nach E3?

Holger

Re: ZUSATZ
13.12.2002 11:16:50
Basti
nicht gleichzeitig, sondern jemand wählt beispielsweise in zeile 3 eine Projektnummer aus, auf die er Zeiten erfassen will, da er aber dazu die Beschreibung benötigt (als Sicherheit vor Falscherfassung) soll diese ihm dann in e3 angezeigt werden.
dann geht er in die nächste zeile, erfasst unter einer anderen projektnummer und das beschreibungsfeld e3 zeigt nun die beschreibung der anderen projektnummer an.
Anzeige
Re: ZUSATZ
13.12.2002 12:05:46
Holger Levetzow
dann würde ich VBA nehmen, z.B. sowas für die tabelle:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 3 And Target.Row >= 5 And Target.Row <= 15 Then
'suchen und in E3 eintragen
End If
End Sub

Holger

Re: ZUSATZ
13.12.2002 12:34:21
Basti
das scheint schon zu klappen. Super, danke für die AW!

Aber wie bau ich denn so eine Suchen-Sub in VB bzw. den SVERWEIS. Kenn das nur mit direkt in der Zelle eintragen...

Re: ZUSATZ
13.12.2002 12:58:13
Holger Levetzow
in Tabelle Stammdaten in A1:B8 stehen die Nummer und der Kommentar. Dann geht mit SVerweis:

Holger
Re: ZUSATZ
13.12.2002 13:01:08
Holger Levetzow@T-Online.de
ups, ein Fehler bei der Übertragung:

das %3C=15 heißt natürlich "kleiner gleich 15".

Holger

Anzeige
Re: ZUSATZ
13.12.2002 13:05:11
Basti
Hi, noch mal super.

Aber er meckert bei mir bei dem Prozent.
Auf was verweist das %3c= 15, muss nämlich anpassen???

Fehlermeldung
13.12.2002 13:07:22
Basti
er meckert nun, dass ein Objekt erfordelich sei:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 7 And Target.Row >= 2 And Target.Row <> 14 Then
Range("E3") = WorksheetFuncti.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B100"), 2, False)
End If
End Sub

Re: Fehlermeldung
13.12.2002 13:50:35
Holger Levetzow
irgendwie ist der Wurm in der Übertragung. Es fehlten on bei Function:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 7 And Target.Row >= 2 And Target.Row <> 14 Then
Range("E3") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B100"), 2, False)
End If
End Sub

Holger

Anzeige
Re: Fehlermeldung
13.12.2002 14:05:12
Basti
jau, das kam mir auch schon komisch vor.

Das Problem ist nun nur noch, dass wenn man den Inhalt wieder löscht, die lookup-Eigenschaft nicht mehr zugeordnet werden kann...

Re: Fehlermeldung
13.12.2002 14:10:01
Holger Levetzow
dann erweiter z.B. so:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 7 And Target.Row >= 2 And Target.Row <> 14 Then
If Target.Value = "" Then
Range("E3") = ""
Else: Range("E3") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B100"), 2, False)
End If
End If
End Sub

Holger

Re: Fehlermeldung
13.12.2002 14:25:38
Basti
da drunter habe ich auch noch zwei Eingaben, für km-Geld udn Kosten.

Kann man die Sachen irgendwie so schachteln, dass das für variable Zellen gültig ist, denn in km und kosten sind die Eingaben in Spalte B

Anzeige
Re: Fehlermeldung
13.12.2002 14:47:11
Holger Levetzow
Allmählich wird es kompliziert, durchzusehen. Du kannst doch aber jeden Bereich einzeln bearbeiten:

'Spalte B:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 And Target.Row >= 2 And Target.Row <> 14 Then
...
End If
End Sub
'Spalte G:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 7 And Target.Row >= 2 And Target.Row <> 14 Then
...
End If
End Sub

usw.

notfalls schicke die Datei mit Erlaüterungen rüber.

mfg Holger

da sagt er mir dann "mehrdeutiger Name"
13.12.2002 14:53:54
Basti

code is like that:

' für Zeiterfassung
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 7 And Target.Row >= 5 And Target.Row <> 14 Then
If Target.Value = "" Then
Range("G2") = ""
Else: Range("G2") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B50"), 2, False)
End If
End If

End Sub
' für KM-Geld
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 2 And Target.Row >= 22 And Target.Row <> 26 Then
If Target.Value = "" Then
Range("G20") = ""
Else: Range("G20") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B50"), 2, False)
End If
End If

End Sub
' für verauslagte Kosten
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 2 And Target.Row >= 33 And Target.Row <> 37 Then
If Target.Value = "" Then
Range("G31") = ""
Else: Range("G31") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B50"), 2, False)
End If
End If

End Sub

Anzeige
ich... -!!!-
13.12.2002 15:13:58
Basti
ich bin jetzt erst mal out of office, aber ich setz mich zu Hause noch mal dran.

Wäre cool, wenn du zu meinem "mehrdeutig-Beitrag" noch ne Lösung hättest.

Mailaddy hast du ja auch...

bis denn, Basti

Re: ich... -!!!-
13.12.2002 15:18:13
Holger Levetzow
die Sub darf nur einmal definiert werden (war mein Fehler!)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Saplte B
If Target.Column = 2 And Target.Row >= 2 And Target.Row <> 14 Then
...
End If
'Spalte E
If Target.Column = 7 And Target.Row >= 2 And Target.Row <> 14 Then
...
End If
...hier alles rein
end sub

so? geht nich
13.12.2002 15:25:03
Basti
sagt er aber wieder, dass die Lookup-Eigenschaft nicht zugeordnet werden kann..

' für Zeiterfassung
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 7 And Target.Row >= 5 And Target.Row <> 14 Then
If Target.Value = "" Then
Range("G2") = ""
Else: Range("G2") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B50"), 2, False)
End If
End If

' für KM-Geld
If Target.Column = 2 And Target.Row >= 22 And Target.Row <> 26 Then
If Target.Value = "" Then
Range("G20") = ""
Else: Range("G20") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B50"), 2, False)
End If
End If

' für verauslagte Kosten
If Target.Column = 2 And Target.Row >= 33 And Target.Row <> 37 Then
If Target.Value = "" Then
Range("G31") = ""
Else: Range("G31") = WorksheetFunction.VLookup(Target.Value, Sheets("Stammblatt").Range("A20:B50"), 2, False)
End If
End If

End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Wieso für Trim() Verweis auf PDFMaker.xla nötig?
Hans

Hallo,
mein VBA Programm bricht bei der Zeile:
If Len(Trim(Sheets(iSheetDest).Cells(n + nDestZ, nDestS))) Mod 2 = 1
mit dem Fehler ab "Fehler beim Kompilieren: Project oder Bibliothek nicht gefunden"
Wenn ich in den Verweisen die 'PDFMaker.xla' aufnehmen, funktioniert das Progr...
29.08.2008 10:27:00
Thread-ID: 1005716
3 Beiträge
Anzeige
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Fehlen eines VERWEIS (f.BrowseFolder) auffangen
Franz

Hallo Profis!
Eine ergänzende Frage zu I"InitialFolder" etwas da unten:
ich wollte die Funktion noch absichern aber der "On Error Goto" streikt obwohl ich bewusst den Verweis deaktiviert habe. Was mache ich falsch oder kriegst man dies anders hin?
Function BrowseFolder(Optional...
10.01.2009 17:27:29
Thread-ID: 1038487
3 Beiträge
Anzeige
SVERWEIS greift auf die Tabellen, die nicht gibt
Sophie

Hallo liebe Excel Experten!
Ich habe eine ziemlich unheimliche Sache: folgendes SVERWEIS Formel greift auf die Tabellen, die in der Datei gar nicht gibt bzw. die ich nicht finden kann.
=SVERWEIS(Tabelle_Rohdaten[[#Diese Zeile];[WE_ID]]; Tabelle_Datenbank_V20_fe[[WE_ID]:[SummevonME...
29.01.2009 09:35:00
Thread-ID: 1044816
8 Beiträge
sverweis mit variable auf externe datei
Joni

Hi,
ich suche eine Lösung um mittels sverweis aus anderen Dateien/Tabellen Werte auszulösen. Die Schwierigkeit liegt darin, dass der Dateiname aus einer Zelle ausgelesen werden soll (der Pfad ist immer der gleiche). Die andere Datei ist nicht geöffnet und sollte dies wenn möglich auch nicht...
09.06.2009 23:34:03
Thread-ID: 1080301
4 Beiträge
Sverweis auf mehere Werte
Excellent

Hallo,
stehe mal wieder vor einem Problem und bräuchte Eure Hilfe.
Ich habe 2 Tabellenblätter:
Blatt1:
Nummer gesucht: Bezeichnungen aus Blatt2
1................ x,y,z
3................ v,m
5................ ......
19.06.2009 10:15:26
Thread-ID: 1082805
6 Beiträge
SVERWEIS auf externe Arbeitsmappe
BuStue

Hallo Leute kann mir vielleicht jemand helfen?
Ich erhalte bei folgender Formel eine Fehlermeldung auf das Laufwerk.
=Wenn(ISTNV(SVERWEIS(C2;'H:\PREISE 2009\ELC_08\[EDE.xls]Tabelle1'EAN;1;Falsch));"";SVERWEIS(C2; 'H:\PREISE 2009\ELC_08\[EDE.xls]Tabelle' EAN;1;Falsch))
Für Eure...
10.08.2009 12:59:00
Thread-ID: 1094691
4 Beiträge
Sverweis auf 2. Wert einer Spalte
Wolfgang

Hallo Forum,
ich brauche Hilfe für ein Diensteinteilungsprogramm.
Auf einer Datums-Tabelle werden verschiedene Stationen eingetragen, in der darüberliegenden Spalte stehen die Namen.
Den ersten Name kann ich für die Auswertung über "INDEX('PLANUNG'!$B2:$AJ2;SVERWEIS("STATION";'PL...
26.09.2009 00:04:34
Thread-ID: 1105640
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
2
2
2
7
3
5
3
6
2
4
1
4
7
8
4
8
11
2
1
3
32
2
5