Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen bearbeiten bei BeforeSave

Zellen bearbeiten bei BeforeSave
08.05.2020 14:02:10
Dieter
Liebe Leute,
ich bin neu hier, weil ich was für meinen Chef programmieren muss und nicht weiß wie ich das machen soll.
Bisher wurde ich bei euch immer fündig, aber jetzt stehe ich an, deshalb hab ich mich erst jetzt bei euch registriert.
Zu meiner Frage:
Gibt es die Möglichkeit in einer Excel-Datei beim (vor dem Schließen) noch ein paar Felder zu bearbeiten, sprich die Formeln in Werte umzuwandeln?
Wenn ich das in einem normalen Sub schreibe funktioniert es, wenn ich es aber in einem
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
versuche tut sich nichts.
Was mache ich falsch?
Vielen Dank im Voraus!
lg
Dieter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen bearbeiten bei BeforeSave
08.05.2020 14:03:56
Werner
Hallo,
und die Frage soll dir jetzt wer beantworten, ohne deinen Code zu kennen?
Gruß Werner
AW: Zellen bearbeiten bei BeforeSave
08.05.2020 14:11:54
Dieter
Hallo,
wie gesagt bin neu hier,
zB: 
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a, b, c, d As Integer
a = 2
b = 1
Worksheets(1).Select
Cells(a, b).Select                                              'Prüfe beschriebenen  _
Bereich
Do
If Cells(a, b) = "" Then Exit Do
If Cells(a, b)  "" Then
a = a + 1
End If
Loop Until Cells(a, b) = "" Or a = 10000
Range(Cells(2, 12), Cells(a - 1, 12)).Select
Selection.Value = Selection.Value
End Sub
Das steht in DieseArbeitsmappe ebenso erfolglos wie in sheet1 oder einem Modul.
keine Ahnung was da hingehört.
DAnke im Voraus
Anzeige
AW: Zellen bearbeiten bei BeforeSave
08.05.2020 14:34:42
Werner
Hallo,
versuch mal: 
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim loLetzte As Long
With Sheets(1)
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
If loLetzte
Gruß Werner
AW: Zellen bearbeiten bei BeforeSave
09.05.2020 22:08:11
Dieter
Wahnsinn, das ist perfekt, besten Dank!!!!
Was bin ich schuldig? :-)
Gerne u. Danke für die Rückmeldung. o.w.T.
10.05.2020 02:58:19
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige