Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1472to1476
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
1472to1476
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF to Excel - Bestimmte Ziffernfolge suchen

PDF to Excel - Bestimmte Ziffernfolge suchen
16.02.2016 10:16:19
Thorsten
Hallo,
ich habe eine PDF in ein Textdokument gespeichert und nun in Excel kopiert.
Hierbei habe ich ja die Möglichkeit Text in Spalten aufzuteilen.
Jetzt ist es so das ich alles in einer Spalte habe (A) und jeweils die Zeilen 1-...!
Es gibt Nummern in diesem Text in folgender Form (## #### ####).
Diese möchte ich gesammelt im Dokument suchen, kopieren und eine Liste von Nr. haben, die im Dokument vorkommen.
Die Nummern stehen oftmals nicht allein sondern sind umgeben von Text usw.
Ist das Möglich?
Vielen Dank!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF to Excel - Bestimmte Ziffernfolge suchen
18.02.2016 15:15:44
fcs
Hallo Thorsten,
hier ein entsprechendes Suchmakro.
Gruß
Franz 
Sub SucheZahlenmuster()
Dim wks As Worksheet
Dim Zeile As Long, Zeile1 As Long
Dim strZelle As String, strText As String
Dim intK As Integer
Dim arrZahlen() As String, intZ As Integer
Dim strLike As String
Set wks = ActiveSheet
strLike = "## #### ####" 'Vergleichsstring # steht für Ziffer
With wks
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
strZelle = .Cells(Zeile, 1).Text
For intK = 1 To Len(strZelle)
strText = Mid(strZelle, intK)
If Left(strText, Len(strLike)) Like strLike Then
intZ = intZ + 1
ReDim Preserve arrZahlen(1 To intZ)
arrZahlen(intZ) = Left(strText, Len(strLike))
intK = intK + Len(strLike) - 1
End If
Next
Next
End With
If intZ > 0 Then
Application.ScreenUpdating = False
'neues Blatt für Ergebnis anlegen
ActiveWorkbook.Worksheets.Add after:=wks
Set wks = ActiveSheet
With wks
Zeile1 = 2 '1. EInfügezeile für Zahlenfolgen
Zeile = Zeile1 - 1
For intZ = LBound(arrZahlen) To UBound(arrZahlen)
Zeile = Zeile + 1
.Cells(Zeile, 1).Value = arrZahlen(intZ)
Next
If Zeile > Zeile1 Then
'Zahlen sortieren
With .Range(.Cells(Zeile1, 1), .Cells(Zeile, 1))
.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlNo
End With
'mehrfach vorkommende Ziffernfolgen löschen
For Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row To Zeile1 + 1 Step -1
If .Cells(Zeile, 1).Text = .Cells(Zeile - 1, 1).Text Then
.Cells(Zeile, 1).EntireRow.Delete
End If
Next
End If
End With
Application.ScreenUpdating = True
Else
MsgBox "Keine Ziffernfolgen im Format """ & strLike & """ gefunden!"
End If
End Sub

Anzeige

262 Forumthreads zu ähnlichen Themen

Text in anderer Datei suchen, kopiertes rechts ein
Rudolf

Hallo an alle, bin neu hier und benötige Hilfe.
Wie kann ich in Spalte A einen Text z.B. K1 (Kommt immer nur 1x vor) suchen.
Das aus anderer Datei kopierte dann rechts in Sp. C gleiche Zeile einfügen,
so das Range("C45").Select wegfallen kann.
Ich hätte dann die Möglichkeit bel...
12.09.2008 15:29:00
Thread-ID: 1009393
15 Beiträge
Anzeige
Spalten nach Text durchsuchen
Kall

Hallo zusammen,
ich brächte mal eure Hilfe, in der such habe ich nichts passendes gefunden. Ich nöchte die Spalte A ab Reihe 16 bis zum Ende nach einem Begriff "UA" durchsuchen (den es öfter geben kann), und wenn ich diese gefunden habe die komplette Zeile in die Tabelle 5 kopieren, über VB...
19.01.2009 12:47:13
Thread-ID: 1041382
4 Beiträge
Excel-Daten in TXT umwandeln
dani

Hallo zusammen
ich bins nochmal.
Ich muss aus einer Excel-Tabelle mit Daten in verschiedenen Spalten ein txt-file generieren können.
Das klappt auch bestens, aber die Daten in einer Zeile sollten ohne Abstände dargestellt werden.
Jetzt sieht das im txt-file so aus:
Satz_ID...
20.02.2009 13:29:00
Thread-ID: 1052429
7 Beiträge
Anzeige
Ein Wort in Sätzen suchen
Sebastian

Hallo zusammen!
Ich hab sowohl google als auch die hilfe hoch und runter durchsucht.
Ich hab in den Zellen A1-A5 jeweils einen Satz stehen, in dem auch Zahlen vorkommen.
In A7 z.B. soll jetzt nach einer Zahlenkombination gesucht werden die in einer der 5 Zellen vorkommen und als ein...
05.03.2009 14:14:14
Thread-ID: 1056845
8 Beiträge
Pdf in Excel umwandeln
Susann

Hallo,
ich habe ein PDF Dokument mit Adressdaten. Diese möchte ich in eine Excelliste wandeln, damit ich einen Serienbrief daraus machen kann.
Ich habe das PDF bereits als Text gespeichert, um es dann mit Tabs getrennt in Excel zu speichern und wieder zu öffnen. Da zeigt er allerdings...
27.04.2009 10:32:12
Thread-ID: 1071297
13 Beiträge
Suchen in bestimmten Zellen von mehreren Dateien
mehreren

Hallo Excel und VBA Profis.
Dies ist mein erster Beitrag in diesem Forum - ich bin zu anderen Fragen bereits fündig geworden (erstklassiges Forum!), jedoch bin ich bei meinem aktuellen Problem mit meinem Latein am Ende und hoffe Ihr könnt mir weiterhelfen.
Ich habe ein digitales Archiv...
05.05.2009 10:30:21
Thread-ID: 1072994
9 Beiträge
in txt umwandeln
Susann

Hallo,
ich habe eine Excelliste mit Artikelnummern, diese sind allerdings nicht alle gleich lang, also z.B.
000000991235
0000156913
00000009009153
und jetzt möchte ich diese in ein txt Dokument umwandeln, sodass es im Editor wie folgt aussieht:
000000991235;1
0000156...
12.05.2009 13:55:03
Thread-ID: 1074592
3 Beiträge
Bei Export in .txt Datum umwandeln
Daniel

Hallo Zusammen,
ich habe in Spalte B ein Datum mit Uhrzeit in "deutschem Format" stehen.
Nun exportiere ich einen Bereich in eine Textdatei, dort brauche ich das Datum
aber als "TTMMJJJJ hh:mm". Was muss ich in meinem Makro ändern, damit ich
dieses Ergebnis bekomme?
Sub sav...
15.07.2009 11:07:46
Thread-ID: 1088769
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
14
1
3
6
13
7
12
8
2
7
1
1
4
15
2
1
6
8
9
6
3
6
5
1
1