Hallo zusammen,
ich versuche gerade für ein VBA-Projekt einen Bereich in einer Tabelle zu definieren um ihn später mit einem äquivalenten Bereich in einem anderem Tabellenblatt bearbeiten.
Kurz zusammengefasst: wenn in Tab3 der Wert einer Zelle im Datenbereich größer als 0,1 ist, dann soll bei dem äquvalenten Wert in Tab1(im makro intensities genannt) die Schrift Rot und fett sein. (nur als Überblick)
Also ich versuche gerade die Bereiche zu definieren um sie im späteren Verlauf des Makros ansprechen zu können. Der Bereich soll von der Zelle D2 bis zur letzten Zeile der vorletzten Spalte reichen.
Sub SheetIntensitiesBereichDefinieren()
Dim di As Range ’ data intensities
Dim dpv As Range ’ data p values
Dim ldc As Range 'last data cell
Sheets(„intensities“).Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
ActiveCell.Select
Worksheets(„intensities“).Activate
Set di = Sheets(„intensities“).Range(„D2:ActiveCell.Offset (0, -1)“)
ActiveWorkbook.Names.Add _
Name:=„Data_Intensities“, _
RefersTo:=di, Visible:=True
di.Select
End Sub
Komme hier nicht weiter, bekomme den Laufzeitfehler 1004 angezeigt, die Zeile Set di =… ist gelb markiert. Weiss aber leider nicht genau was ich ändern soll, damit Excel glücklich ist. 
Gruß Micha