Clever-Excel-Forum

Seiten: 1 2

Hallo

dann würde ich das Ganze anders machen.

- Leg ein Blatt "Temp" an , was du auch ausblenden kannst.
- Beim öffnen der Datei werden die Daten automatisch in H:P beginnend ab Zeile 6 bis zum Ende auf dieses Blatt kopiert

Dazu dieses Makro in den Bereich "DieseArbeitsmappe" kopieren

Code:
Option Explicit

Private Sub Workbook_Open()

    Dim TB As Worksheet, TBTemp As Worksheet

    Dim Z1 As Integer, LR As Long, S1 As Integer, Off As Integer

    Set TB = Sheets("Tabelle1")

    Set TBTemp = Sheets("Temp")

    Z1 = 6 'Startzeile

    S1 = 8: Off = 9 'Startspalte und Anzahl Spalten

    LR = TB.Cells(TB.Rows.Count, S1).End(xlUp).Row 'letzte Zeile der Spalte

    TB.Cells(Z1, S1).Resize(LR - Z1 + 1, Off).Copy TBTemp.Cells(Z1, S1)

End Sub

- Im Eingabeblatt erfolgt die farbliche Kennzeichnung dann durch bedingte Formatierung.

Dazu...

- H6:P19 markieren
- Bedingte Formatierung
- Neue Regel
- Formel zur Ermittlung..
- Als Formel trägst du ein
=H6 < Temp!H6
- Formatierung Grün
- OK,ok

- nochmal neue Regel...
=H6 > Temp!H6
- Formatierung Rot...

LG UweD

Hallo,

den Code habe ich jetzt für das Blatt Temp angelegt, es kommt aber diese Fehlermeldung vgl. Anlage.

VG

Hi

1)
NICHT für das Blatt Temp sondern der Code muss in "DIESEARBEITSMAPPE".

2)
Hast du auch ein Blatt mit Namen Temp angelegt?

3)
Die Fehlermeldung:

speicherst du auf onedrive?
Sieht mir nach einem Problem dort aus.

LG UweD

Seiten: 1 2

UweD

Wonderer

UweD