VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	18.02.2020 19:36:04	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	18.02.2020 20:03:20	Gast3180
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	18.02.2020 20:25:08	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 16:57:19	Gast45104
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 17:04:08	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 17:17:57	Gast58217
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 17:23:48	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 20:36:42	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 22:21:47	Mase
Fileupload	24.02.2020 22:28:53	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	25.02.2020 22:00:53	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	25.02.2020 22:08:27	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	25.02.2020 22:18:28	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 07:46:07	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 19:43:13	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 19:55:15	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 21:49:19	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 22:48:10	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 12:16:15	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 12:25:41	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 18:55:23	Gast22304
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 18:57:51	Gast22304
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 18:59:30	Gast22304
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 20:53:51	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 13:23:02	Gast15026
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 17:25:32	Gast15026
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 19:02:33	Tobi

Ansicht des Beitrags:

Von:
Tobi

Datum:
24.02.2020 20:53:51

Views:
552

Rating:

Antwort:

Thema:
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile

Tatsächlich ergibt die Abfrage den Wert 1. Außerdem habe ich mir in einer MsgBox den Wert der Zelle in einer Klammer ausgeben lassen. Die schließende Klammer befindet sich in der MsgBox eine Zeile unter der öffnenden. Das deute ich so, dass in der Zelle ein Zeilenumbruchzeichen ist.

Demzufolge sollte es sich doch aber so löschen lassen oder?

If Trim(.Cells(Zeile, 1).Value) = "" Then

   .Rows(Zeile).Delete

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	18.02.2020 19:36:04	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	18.02.2020 20:03:20	Gast3180
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	18.02.2020 20:25:08	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 16:57:19	Gast45104
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 17:04:08	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 17:17:57	Gast58217
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 17:23:48	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 20:36:42	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 22:21:47	Mase
Fileupload	24.02.2020 22:28:53	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	25.02.2020 22:00:53	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	25.02.2020 22:08:27	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	25.02.2020 22:18:28	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 07:46:07	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 19:43:13	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 19:55:15	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 21:49:19	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	26.02.2020 22:48:10	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 12:16:15	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 12:25:41	Mase
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 18:55:23	Gast22304
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 18:57:51	Gast22304
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 18:59:30	Gast22304
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	24.02.2020 20:53:51	Tobi
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 13:23:02	Gast15026
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 17:25:32	Gast15026
.Cells(wks.Rows.Count, "A").End(xlUp) ermittelt falsche letzte Zeile	28.02.2020 19:02:33	Tobi