Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen Suchen und dann Befehl

Zeichen Suchen und dann Befehl
13.04.2005 13:10:32
j.gierth@wut.com
Hi Leute ich haben ein kleines Problem , bei dem ich Eure Hilfe
benötige.
Ich habe Textdatei mit Lizenz-Codes schon in Excel importiert
und alle Leerzeilen schon gelöscht.
Nun steht aber immer eine Zeile vor den Codes die Serien-Nummer die
ich gerne immer vor den Code kopieren möchte.
Als Trennzeichen habe ich nur das Zeichen ("") in einer Zeile.
Diese Zeile möchte ich gerne nachher löschen.
Die Datei habe ich mal im Anhang beigelegt:
https://www.herber.de/bbs/user/21087.zip
Gruss Jörg

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

Betreff
Datum
Anwender
Anzeige
AW: Zeichen Suchen und dann Befehl
13.04.2005 19:03:39
Volker
Hallo Jörg,
bevor Du irgendeine VBA Lösung versuchst, kopier die Seriennummern doch einfach runter und verkette Seriennummer und Codes in der nächsten Spalte.
Kleiner Tip für den Fall, dass Du das feature noch nicht kennst: falls Du die Numerierung 1-32 nicht mehr brauchst, einfach Zelle mit der Seriennr. Markieren und Doppelklick auf rechte, untere Ecke. Wir dann aut. bis zur nächsten Leerzeile ausgefüllt.
Gruß
Volker
AW: Zeichen Suchen und dann Befehl
14.04.2005 13:23:11
Jörg
Das ist mir schon alles klar , nur die Datei ist ein kleiner
Auszug. Die ganze Datei beinhaltet orginal ca. 10000 Code.
Diese alle per Hand zu kopieren ist etwas viel.
Auch die Zahlen 1-32 in der Spalte B sind notwendig.
Gruss Jörg
Anzeige
AW: Zeichen Suchen und dann Befehl
14.04.2005 16:33:58
Volker
Hallo Jörg,
hast schon recht, wenn man den Code mal hat, ist alles easy.
Mich hat die Sache ca. 30min gekostet. In der Zeit kann man es wirklich nicht zu Fuß machen, oder?
Code & Seriennr. werden jetzt in Spalte D geschrieben, durch Leerzeichen getrennt.
Die Zeilen mit den Codes und Leerzeichen werden gelöscht.
Ich hoffe, das ist in Deinem Sinne.

Sub zusammen()
Dim i, j As Long
Dim code As String
i = 1
While Cells(i, 2) = ""
Rows(i).Delete
Wend
While Cells(i, 2) <> ""
code = Cells(i, 2)
Rows(i).Delete
While Cells(i, 2) <> ""
Cells(i, 4) = code & " " & Cells(i, 3)
i = i + 1
Wend
Rows(i).Delete
Wend
End Sub

Gruß
Volker
Anzeige
AW: Zeichen Suchen und dann Befehl
15.04.2005 09:10:17
Jörg
Hi Volker ,
erstmal herzlichen Dank für die Hilfe.
Da ich mich evt etwas falsch ausgedrückt hatte , habe ich den
Code etwas geändert und nun klappt es so ich es für eien Datenbank brauchen kann.
Das Problem war das die Serien-Nr nicht mit dem Code verbunden werden sollte, sonder
in die Spalte A geschrieben.
Und so sieht das ganze nun aus:

Sub zusammen()
Dim i, j As Long
Dim code As String
i = 1
While Cells(i, 2) = ""
Rows(i).Delete
Wend
While Cells(i, 2) <> ""
code = Cells(i, 2)
Rows(i).Delete
While Cells(i, 2) <> ""
Cells(i, 1) = code
i = i + 1
Wend
Rows(i).Delete
Wend
End Sub

Nochmals Tausend Dank.
Jörg
Anzeige
Gern geschehen (o.T.)
15.04.2005 09:32:23
Volker
.

300 Forumthreads zu ähnlichen Themen

Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
zahlen in zeichenkette suchen und wert zurück gebe
gatewax

Hallo,
ich habe einen Spaltenbereich xy der verschiedene Werte aus Zahlen und Texten enthält. (Bsp Asdf0001, B/123_sdf, usw.)
nun habe ich in einer weiteren spalte z zahlen stehen welche in dem spaltenbereich xy (unabhängig ob alleinstehen oder in Textkombination) vorkommen.
ich suc...
27.11.2008 08:22:20
Thread-ID: 1028208
3 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzeige
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Alle Leerzeichen vorne und hinten löschen?
Selma

Hallo Leute,
wie kann ich per VBA für die markierten Zellen alle Leerzeichen des Zellinhalts vorne und hinten löschen?
Viele Grüße,
Selma
04.08.2009 10:23:57
Thread-ID: 1093411
3 Beiträge
letzte zeichen entfernen
Frank

hallo,
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist: Private Sub TextBox1_Change() If Len(TextBox1) > 20 Then TextBox1 = Left(TextBox1) - 1 UserFor...
07.08.2009 11:05:20
Thread-ID: 1094231
8 Beiträge
zeichen finden und löschen
patrick

hi,
ich bräuchte wieder mal die geschätzte hilfe dieses forums.
ich hab ein rießen excelfile in dem telefonnummern drinstehen. (spalte D)
und bräuchte eine möglichkeit um dort invalide datensätze rauszulöschen.
ich will dort wirklich nur die reinen zahlen drin stehen haben. oh...
30.09.2009 14:25:13
Thread-ID: 1106441
4 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
5
7
2
4
4
2
1
2
7
3
5
9
3
5
5
2
4
3
2
12
2
9
3
9
4