Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

sverweis cells(i,1)

sverweis cells(i,1)
12.05.2005 14:16:50
artur
Hallo alle zusammen,
kleine Frage,
wie integriere ich die Cells(i,1) in den sverwesi,anstatt RC[-12]?

Sub Verweis()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) <> Cells(i + 1, 1) Then
Cells(i, 13).FormulaR1C1 = "=VLOOKUP[RC-12],[Mitarbeiter.xls]Tabelle4!R1C1:R65536C7,7)"
Else
End If
Next i
End Sub

MFG
artur

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: sverweis cells(i,1)
12.05.2005 14:56:02
bavariabob
Artur,
habe die Zellbezüge zum Testen geändert. Müsste aber verständlich sein
Gruss aus München!

Sub Verweis()
For i = 1 To Range("A6").End(xlUp).Row
If Cells(i, 1) <> Cells(i + 1, 1) Then
Cells(i, 13).Formula = Application.WorksheetFunction.VLookup(Cells(i, 1), Sheets(2).Range("a1:b5"), 2)
Else
End If
Next i
End Sub

AW: sverweis cells(i,1)
12.05.2005 15:06:12
artur
Hi bavariabob,
wollte es ausprobieren, jetzt akzeptiert es mein [Mitarbeiter.xls]Tabelle4'! nicht.
Hast du eine Ideee
mfg
artur
AW: sverweis cells(i,1)
12.05.2005 15:11:22
bavariabob
Artur,
du musst die richtige Datei "ansprechen". Z. B. :
Workbooks("Mitarbeiter").Sheets("Tabelle4").Range("a1").Select
Anzeige
AW: sverweis cells(i,1)
12.05.2005 15:01:40
u_
Hallo,
am besten gar nicht!
Cells(i, 13).FormulaR1C1 = "=VLOOKUP(RC1,[Mitarbeiter.xls]Tabelle4!R1C1:R65536C7,7)"
Gruß
Geist ist geil!
AW: sverweis cells(i,1)
12.05.2005 15:08:30
artur
Hi u, warum gar nicht?
das mit den klammern war nur ein tippfehler.
mfg
artur
AW: sverweis cells(i,1)
12.05.2005 16:21:32
u_
Hallo,
weil RC1 immer auf A in der gleichen Zeile verweist.
Gruß
Geist ist geil!
AW: sverweis cells(i,1)
12.05.2005 15:09:52
UweD
hallo Artur
so geht es auch:
Cells(i, 13).FormulaLocal = "=Sverweis(A" & i & ";[Mitarbeiter.xls]Tabelle4!A1:G65536;7)"
Gruß WweD
AW: sverweis cells(i,1)
12.05.2005 15:29:10
artur
Vielen dank an alle,
funktionert jetzt alles, wie ich wollte.
super!!
mfg
artur
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige