HERBERS Excel-Forum - die Beispiele

Thema: Zellinhalt in zweitem Blatt ermitteln

Home

Gruppe

Funktion

Problem

Wie kann ich den Zellinhalt in einem zweiten Blatt in der gleichen Spalte aber einer anderen Zeile als die der aktiven Zelle ermitteln?

Lösung
Folgende Formel: =INDEX(Tabelle2!1:16384;25;SPALTE()) Ermittelt wird der Wert aus Zeile 25
StandardModule: Modul1

Sub Start()
   Dim wks As Worksheet
   Dim iRow As Integer
   Dim sTxt As String, sFile As String
   Application.ScreenUpdating = False
   sFile = Application.DefaultFilePath & "\unicode.html"
   ActiveSheet.Copy
   iRow = 2
   Set wks = ThisWorkbook.Worksheets("Data")
   Do Until IsEmpty(wks.Cells(iRow, 1))
      Cells.Replace _
         what:=wks.Cells(iRow, 1).Value, _
         replacement:=wks.Cells(iRow, 2).Value, _
         lookat:=xlPart, _
         MatchCase:=True
      iRow = iRow + 1
   Loop
   Open sFile For Output As #1
   Print #1, "<html><head>"
   Print #1, "<meta HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=UTF-8"">"
   Print #1, "</head>"
   Print #1, "<body>"
   Print #1, Cells(1, 1).Value
   Print #1, "</body></html>"
   Close
   ActiveWorkbook.Close savechanges:=False
   Shell "explorer " & sFile, vbNormalFocus
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und INDEX

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
VERGLEICH/INDEX Formelproblem VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion Index Formel_Berechnung nur bei bestimmten Wert
neues Aktien Index Problem Array - Index außerhalb des gültigen Bereichs
Zelladressen von FunktionsParametern ermitteln Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
Formel Index(RGP @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen Interior.ColorIndex
Rang-Funktion für Strings? Skript funktioniert nur auf einer seite?!?!
Hyperlink auf Excel-Datei funktioniert nicht Public Funktion / Variabel
VBA - Suchfunktion - Fehlermeldung Benutzerdefinierte Funktion
Userform mit Löschfunktion Frage zu Wenn Dann Funktion
Wenn-Funktion Colorindex Excel-Word RGB-Werte
Frage zur Funktion DISAGIO Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig Kombination von INDEX/Vergleich für Wertevergleich
zählenwenn-funktion mit mehreren kriterien Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile") Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht WENN-Funktion