Suchergebnisse
Suchergebnisse 1-6 von insgesamt 6.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
wenn ich nur wüsste , wie ich mit vba die Auswahl im Auswahlfeld (Datenüberprüfung) "bestätigen" kann. Alles würde denn funktionieren. Bisher übernimmt excel zwar den Wert in der Zelle aber im Changelog erst wenn ich die Auswahl tätige und dann auf enter drücke.
-
Leider kann ich die Beispieldatei nicht hochladen. Deshalb das Coding, Mir ist nun aufgefallen , dass das Problem entsteht sobald die benamte Zelle ein Kommentar im Namenmanager bekommt. Also unabhängig von Zahl und Text, Im Logfile kann man sehen, dass der vorher Wert nicht stimmt... Dim oldValue As String Dim oldAddress As String Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Dim sSheetName As String sSheetName = "Data" If ActiveSheet.Name <> "…
-
ActiveSheet.Names(2) soll das Zellkommentar darstellen. Das funktioniert auch. Nochmal vielen Dank für die Hilfe. Es ist alles FAST fertig. Eine Sache ist mir nun aufgefallen. Es gibt Probleme mit loggen von Zellen die über eine Datenüberprüfung laufen (Auswahl über Liste). Beispiel: abc;def;ghi oder 1;2;3;4 . Das loggen der Zellen wo die Auswahl 1;2;3;4 funktioniert super. Nur die mit Text nicht. Bei denen mit Text gibt es bei Änderungen kein old.value. Erst wenn die Auswahl in der Zelle mit E…
-
super, Danke. Das hat geholfen
-
Guten Morgen, sorry für die späte Rückmeldung. Ich habe auch etwas gefunden: Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 5).Value = ActiveSheet.Names(2).Name Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(0, 6).Value = ActiveSheet.Names(2).Comment Der Zellname und das dazugehörige Kommentar wird wiedergegeben. Habe das mit einem Testfeld gemacht. Nun habe ich eine Änderung an einem anderen Feld getätigt. Nur leider werden die Daten immer noch vom Vorigen Feld …
-
Hallo zusammen, mit SheetChange fange ich Änderungen der einzelnen Zellen in einem bestimmten Arbeitsblatt ab. Das funktioniert auch super. Ich würde gerne als zusätzliche Spalte die Zellenbezeichnung mit abfragen. Ich habe auf dem Arbeitsblatt diverse Zellen mit Namen difiniert. Kann mir einer helfen, wie ich mit "gleichem" Quellcode wie unten die Bezeichnung der Zelle abfragen kann? Sheets("LogDetails").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ActiveSheet.Name & " - " & Target.Ad…