Anzeige
Archiv - Navigation
1548to1552
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
Inhaltsverzeichnis

Zelle auswählen & Wert aus anderer Tabelle einfüge

Zelle auswählen & Wert aus anderer Tabelle einfüge
30.03.2017 10:48:46
Irgendwer
Die Frage musste ich leider löschen lassen, da ich einen Korinthenkacker zum Chef habe.

Aus Datenschutzgründen gelöscht.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zelle auswählen & Wert aus anderer Tabelle einfüge
30.03.2017 12:29:17
Rudi
Hallo,
evtl so?
Sub Suchen()
Dim strSuch As String, strErg As String
Dim rngErg As Range, lQuelle As Long, lAktuell As Long
Dim wksPlan As Worksheet
strSuch = Cells(ActiveCell.Row, 2)
lAktuell = ActiveCell.Column
Set wksPlan = Workbooks("MeineArbeitsmappe.xls").Worksheets("MeineTabelle")
Select Case lAktuell
Case 10: lQuelle = 17
Case 11: lQuelle = 16
Case 13: lQuelle = 13
Case 14: lQuelle = 23
'etc
End Select
Set rngErg = wksPlan.Columns(2).Find(strSuch, , , xlWhole)
If Not rngErg Is Nothing Then 'wenn es gefunden wurde
strErg = wksPlan.Cells(rngErg.Row, lQuelle)
MsgBox strErg
Else
MsgBox "nicht gefunden"
End If
End Sub

Gruß
Rudi
Anzeige
AW: in Zelle einfügen
30.03.2017 13:15:11
Irgendwer
diese Antwort musste ich auch löschen lassen.
AW: in Zelle einfügen
30.03.2017 13:44:36
Werner
Hallo Irgendwer,
ersetzte mal
MsgBox strErg

durch
ActiveCell.Value = strErg
Gruß Werner
AW: in Zelle einfügen
30.03.2017 14:00:55
Irgendwer
Und diese Antwort musste ich auch löschen lassen.

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige