Unterscheidung eingelesener und händisch nachgetragener Daten

[JonasRe]

Hallo,

ich möchte eingelesene Daten von händisch nachgetragenen Daten unterscheiden. Ich habe es versucht, die Zellen der eingelesenen Daten fett zu formatieren. Die händisch nachgetragenen sollen dabei "normal" foramtiert sein. Jetzt habe ich das Problem mit meinem Code, dass nach händischem nachtragen die Zellen auch fett markiert werden. Über jede Hilfe bin ich dankbar :) 

Code:

Private Sub Formatierung()
Dim Zeile As Integer
Zeile = 3
ZeileMax = tbl_Gehaltsdaten.Cells(Rows.Count, 2).End(xlUp).Row
Set book = ActiveWorkbook

For Zeile = 3 To ZeileMax
    book.Worksheets("Gehaltsdaten").Cells(Zeile, 1).Font.Bold = True
Next Zeile
   
End Sub

[Matthias84]

Hallo,

ich denke mit Excel wirst du hierfür keine Lösung finden, da spätestens nach dem ersten Speicher keine Möglichkeit der Unterscheidung mehr gegeben ist.

[schauan]

Hallo,

eine einfache Variante wäre erst einmal, wenn Du das Blatt vor dem Import der Daten oder gleich danach komplett oder wo auch immer manuell fett formatierst.

Für die manuellen Änderungen nimmst Du dann im Modul des Tabellenblattes diesen Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Bold = False
End Sub


Wenn Du in eine Zelle gehst zwecks Eingabe wird Dir beim Verlassen oder ENTER die Formatierung zurückgesetzt. Der Code prüft allerdings nicht, ob Du dabei wirklich was geändert hast.

[RPP63]

Moin!
Eine andere Variante, davon ausgehend, dass der Import pro Datei (oder Tabellenblatt) einmalig erfolgt und hier auch nichts mehr geändert werden soll.
(die Threaderöffnung ist dahingehend unklar formuliert)
Die Zellen des Imports werden formatiert und nur diese durch Blattschutz vor Überschreiben geschützt.

Sub MakeIt_Bold_And_Save()
With Tabelle1
  .Cells.Locked = False
  With .Cells.SpecialCells(xlCellTypeConstants)
    .Font.Bold = True
    .Cells.Locked = True
  End With
  .Protect
End With
End Sub

Gruß Ralf

[JonasRe]

@schauan und RPP63,
danke für eure Hilfe. Ich konnte mein Problem damit lösen :)