Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2016to2020
2016to2020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA Text an Ende der Datei eintragen

Forumthread: VBA Text an Ende der Datei eintragen

VBA Text an Ende der Datei eintragen
05.08.2025 18:43:27
Jenny2025
Userbild


Hallo ihr Lieben,

könnt ihr mir helfen ein END an die jeweils letzten Stellen zu packen? Ich bekomme das einfach noch nicht hin.

Ganz lieben Dank schon mal.
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Text an Ende der Datei eintragen
05.08.2025 18:51:31
daniel
Hi

markiere den Bereich, den du so bearbeiten willst und dann:.
die Spalten müssen bis zu ihrem jeweiligen Ende vollständig gefüllt sein (keine Leerzellen zwischen drin) 

dim Zelle as Range

for each Zelle in Selection.Rows(1).Cells

    if Zelle.value = "" Then

        Zelle.Value = "END"

    elseif Zelle.offset(1, 0).value = "" Then

        Zelle.Offset(1, 0).Value = "END"

   Else

        Zelle.End(xldown).Offset(1, 0).Value = "END"

   end if

next
Anzeige
AW: VBA Text an Ende der Datei eintragen
06.08.2025 11:34:42
GerdL
Moin Jenny!

Also die letzte Zeile funktioniert, aber die letzte Spalte nicht.
Aber die Spalte nicht.
In Spaltenzelle L1 müsste es eintragen sein und es war in K2, weil dort eine Zelle frei war.

Kannst du bitte die Beispieldatei mit deiner Tabellenkonstellation hierzu hochladen.

Gruß Gerd
Anzeige
AW: VBA Text an Ende der Datei eintragen
06.08.2025 12:41:15
Jenny2025
https://www.herber.de/bbs/user/178460.xlsm

hier soll in A4 und in L1 ein END stehen. Was aber variabel sein muss, je nachdem wieviel Daten eingetragen werden

Danke euch :)
AW: VBA Text an Ende der Datei eintragen
06.08.2025 13:03:51
BoskoBiati
Hi,

Dein Makro zeigt ja wohl deutlich, dass Du Dich intensiv mit VBA auseinandersetzen solltest, damit Du verstehst, was passiert. In Deinem Fall reicht eigentlich das: 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 

 Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = "END"

 Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) = "END"



End Sub


Gruß

Edgar
Anzeige
AW: VBA Text an Ende der Datei eintragen
06.08.2025 13:26:19
Jenny2025
Danke dir, deswegen habe ich ja auch hier im Forum gefragt.
AW: VBA Text an Ende der Datei eintragen
05.08.2025 19:12:09
Jenny2025
Danke für die schnelle Antwort :)

Also die letzte Zeile funktioniert, aber die letzte Spalte nicht. Aber die Spalte nicht. In Spaltenzelle L1 müsste es eintragen sein und es war in K2, weil dort eine Zelle frei war.

Und ich brauche das ganze automatisiert beim speichern der Datei und dann auch noch das das sheet als csv gespeichert wird. Die Benutzer sollen davon nämlich nichts mitbekommen.

Ihr seid echt toll, dass ihr so schnell helft!
Anzeige
AW: VBA Text an Ende der Datei eintragen
05.08.2025 19:19:54
daniel
um etwas automatisch beim Speichern auszuführen, gibt es BeforeSafe-Event.
das wird jetzt aber komplizierter.
Du bist nicht der Benutzer?
Gruß Daniel
AW: VBA Text an Ende der Datei eintragen
06.08.2025 10:54:30
Jenny2025
Ja genau, ich erstelle nur die Datei. Es gibt ein Sheet in das Daten geladen werden und ein Sheet (das später gesperrt ist) das sich automatisiert befüllt und später als import csv genutzt werden soll. Und damit das alles ohne Probleme läuft dachte ich mir das ich das automatisiere. Das speichern beim schliessen bekomme ich hin. Aber das END an die erste Stelle in der letzten Spalte nicht.
Anzeige
AW: VBA Text an Ende der Datei eintragen
06.08.2025 11:01:21
BoskoBiati
Hi,

und warum nicht die letzte belegte Zeile in A ermitteln und darunter ein "END" eintragen?

Gruß

Edgar
AW: VBA Text an Ende der Datei eintragen
06.08.2025 11:24:19
Jenny2025
Hallo Edgar

Ich brauche es an diesen 2 Stellen. Einmal letze Zeile Spalte A und dann nach der letzten befüllten Spalte (zum Beispiel Spalte G ist die letzte die Werte hat, dann brauche ich das END in Spalte H Zelle 1). Letze Zeile Spalte A funktioniert in dem Code, aber halt nicht an der zweiten Stelle. Das System in die die CSV importiert werden soll kann die Datei leider nicht anders verarbeiten.

Liebe Grüße
Jenny
Anzeige
AW: VBA Text an Ende der Datei eintragen
06.08.2025 11:32:42
daniel
ok jetzt verstanden du brauchst nur 2 END 

Cells(Rows.Count, 1).end(xlup).offset(1, 0).value ) = "END"

Cells(1, Columns.Count).End(xltoright).Offset(0, 19.Value = "END"


Gruß Daniel
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum