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
1356to1360
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
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Skript überspringt Zeilen mit Sonderzeichen...

Skript überspringt Zeilen mit Sonderzeichen...
23.04.2014 13:25:09
Jonas
...aber nicht immer.
Hallo alle miteinander!
Ich hab ein Skript, dass aus der Spalte A eines Blattes Zeilenblöcke rauskopieren und in ein separates Blatt einfügen soll, wenn es eines von drei Stichwörtern in den Zellen vorfindet (Je stichwort wird der folgende Datenblock dann in eins von drei separaten Blättern geschrieben). Dies funktioniert auch prima, bis auf ein Handvoll Zellen, in denen weibliche ordinalzeichen (ª ;Unicode 00AA; Windows Alt-0170) stehen. Diese dienen als optisches Trennmittel zwischen den Datenblöcken und sind in der Datei die ich zur Verarbeitung erhalte schon enthalten. Der Fehler tritt allerdings nicht konsistent auf, daher glaube ich nicht das Excel ein Problem mit der Verarbeitung des Sonderzeichens hat. Inkonsistent, weil wenn die letzte kopierte Zelle eines Datensatzes diese Zeichen enthält und anschließend ein neuer Datensatz beginnt, wird die Zelle erfolgreich auf das Zielblatt kopiert.
Hier mein Code: 

Sub Erstellen()
Call Einlesen 'Das Einlesen findet aus einer TXT im gleichen Verzeichnis statt und  _
funktioniert tadellos. Alle Zeilen werden erfolgreich eingefügt.
ThisWorkbook.Worksheets("Verarbeitung").Activate
Dim i As Long
Dim j As Long
Dim k As Long
Worksheets("Exportregion 1").Range("A:A").ClearContents
Worksheets("Exportregion 2").Range("A:A").ClearContents
Worksheets("Exportregion 3").Range("A:A").ClearContents
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets("Verarbeitung").Cells(i, 1).Value = "EXPORTREGION 1" Then
k = Worksheets("Exportregion 1").Cells(Rows.Count, 1).End(xlUp).Row
j = i
Do
Worksheets("Exportregion 1").Cells(k, 1).Value = Worksheet("Verarbeitung"). _
Cells(j, 1).Value
j = j + 1
k = k + 1
Loop Until Worksheets("Verarbeitung").Cells(j, 1).Value = "" Or Worksheets(" _
Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 1" Or Worksheets("Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 2" Or Worksheets("Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 3"
ElseIf Worksheets("Verarbeitung").Cells(i, 1).Value = "EXPORTREGION 2" Then
k = Worksheets("Exportregion 2").Cells(Rows.Count, 1).End(xlUp).Row
j = i
Do
Worksheets("Exportregion 2").Cells(k, 1).Value = Worksheets("Verarbeitung"). _
Cells(j, 1).Value
j = j + 1
k = k + 1
Loop Until Worksheets("Verarbeitung").Cells(j, 1).Value = "" Or Worksheets(" _
Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 1" Or Worksheets("Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 2" Or Worksheets("Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 3"
ElseIf Worksheets("Verarbeitung").Cells(i, 1).Value = "EXPORTREGION 3" Then
k = Worksheets("Exportregion 3").Cells(Rows.Count, 1).End(xlUp).Row
j = i
Do
Worksheets("Exportregion 3").Cells(k, 1).Value = Worksheets("Verarbeitung"). _
Cells(j, 1).Value
j = j + 1
k = k + 1
Loop Until Worksheets("Verarbeitung").Cells(j, 1).Value = "" Or Worksheets(" _
Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 1" Or Worksheets("Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 2" Or Worksheets("Verarbeitung").Cells(j, 1).Value = "EXPORTREGION 3"
End If
Next i
For Each Item In Worksheets
Item.Range("A:A").Columns.AutoFit
Next
Call Versenden 'Das versenden per Mail funktioniert tadellos.
End Sub

und hier noch Beispieldatensätze zur besseren Verständlichkeit. Im Normalfall füllen die Datensätze zusammen ca 8000 Zeilen. Die Wörter "Exportregion 1" "Exportregion 2" und "Exportregion 3" dienen als Suchkriterium, um den Beginn eines neuen Datensatzes zu identifizieren.

EXPORTREGION 1
Some Data 1987234  17.04.2016
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2014
Some Data 1987234  17.04.2015
Some Data 1987234  17.04.2016
Some Data 1987234  17.04.2017
Some Data 1987234  17.04.2018
Some Data 1987234  17.04.2019
Some Data 1987234  17.04.2020
Some Data 1987234  17.04.2021
Some Data 1987234  17.04.2022
Some Data 1987234  17.04.2023
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2023
Some Data 1987234  17.04.2024
Some Data 1987234  17.04.2025
Some Data 1987234  17.04.2026
Some Data 1987234  17.04.2027
Some Data 1987234  17.04.2028
Some Data 1987234  17.04.2029
Some Data 1987234  17.04.2030
Some Data 1987234  17.04.2031
Some Data 1987234  17.04.2032
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2032
Some Data 1987234  17.04.2033
Some Data 1987234  17.04.2034
Some Data 1987234  17.04.2035
Some Data 1987234  17.04.2036
Some Data 1987234  17.04.2037
Some Data 1987234  17.04.2038
Some Data 1987234  17.04.2039
Some Data 1987234  17.04.2040
Some Data 1987234  17.04.2041
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2041
Some Data 1987234  17.04.2042
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª _
ªªªªªªªªªªªªªªªªªªª'besagte Ordinalzeichen
EXPORTREGION 1
Some Data 1987234  17.04.2016
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2014
Some Data 1987234  17.04.2015
Some Data 1987234  17.04.2016
Some Data 1987234  17.04.2017
Some Data 1987234  17.04.2018
Some Data 1987234  17.04.2019
Some Data 1987234  17.04.2020
Some Data 1987234  17.04.2021
Some Data 1987234  17.04.2022
Some Data 1987234  17.04.2023
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2023
Some Data 1987234  17.04.2024
Some Data 1987234  17.04.2025
Some Data 1987234  17.04.2026
Some Data 1987234  17.04.2027
Some Data 1987234  17.04.2028
Some Data 1987234  17.04.2029
Some Data 1987234  17.04.2030
Some Data 1987234  17.04.2031
Some Data 1987234  17.04.2032
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2032
Some Data 1987234  17.04.2033
Some Data 1987234  17.04.2034
Some Data 1987234  17.04.2035
Some Data 1987234  17.04.2036
Some Data 1987234  17.04.2037
Some Data 1987234  17.04.2038
Some Data 1987234  17.04.2039
Some Data 1987234  17.04.2040
Some Data 1987234  17.04.2041
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2041
Some Data 1987234  17.04.2042
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª _
ªªªªªªªªªªªªªªªªªªª 'besagte Ordinalzeichen
EXPORTREGION 2
Some Data 1987234  17.04.2016
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2014
Some Data 1987234  17.04.2015
Some Data 1987234  17.04.2016
Some Data 1987234  17.04.2017
Some Data 1987234  17.04.2018
Some Data 1987234  17.04.2019
Some Data 1987234  17.04.2020
Some Data 1987234  17.04.2021
Some Data 1987234  17.04.2022
Some Data 1987234  17.04.2023
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2023
Some Data 1987234  17.04.2024
Some Data 1987234  17.04.2025
Some Data 1987234  17.04.2026
Some Data 1987234  17.04.2027
Some Data 1987234  17.04.2028
Some Data 1987234  17.04.2029
Some Data 1987234  17.04.2030
Some Data 1987234  17.04.2031
Some Data 1987234  17.04.2032
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2032
Some Data 1987234  17.04.2033
Some Data 1987234  17.04.2034
Some Data 1987234  17.04.2035
Some Data 1987234  17.04.2036
Some Data 1987234  17.04.2037
Some Data 1987234  17.04.2038
Some Data 1987234  17.04.2039
Some Data 1987234  17.04.2040
Some Data 1987234  17.04.2041
------------------------------------------------------------------------------------------------ _
Some Data 1987234  17.04.2041
Some Data 1987234  17.04.2042
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª'besagte Ordinalzeichen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Skript überspringt Zeilen mit Sonderzeichen...
24.04.2014 09:27:03
Jonas
Hi Hajo_Zi,
Sorry für den Doppelpost. Hab die Seite neu geladen und ich schätze dabei wurde der Beitrag versehentlich erneut abgesendet.
Hat niemand ne Idee was das sein könnte? Wenn ich mich unverständlich ausgedrückt haben sollte, sagt mir bitte was nicht verständlich ist. Ich werde dann versuchen es anders zu formulieren.
Vielen Dank und viele Grüße!
Jonas
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige