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

Zeilen finden und Zeichen einsetzen

Forumthread: Zeilen finden und Zeichen einsetzen

Zeilen finden und Zeichen einsetzen
29.11.2007 12:36:00
Michael
hallo an alle,
habe mal wieder ein kleines problem.
ich muss in vielen tabellen zeilen die mit "PT" beginnen, zwischen zeichen 19 und 20 ein "L" einfügen. die anzahl der zu ändernde zeilen sind immer verschieden und stehen in der tabelle nicht immer an der gleichen stelle.
ist so was per klick (makro) möglich.
https://www.herber.de/bbs/user/48135.xls
mfg.
michael

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen finden und Zeichen einsetzen
29.11.2007 12:52:45
Erich
Hallo Michael,
probier mal 

Sub PTmitL()
Dim zz As Long
For zz = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Left(Cells(zz, 1), 2) = "PT" Then _
Cells(zz, 1) = Left(Cells(zz, 1), 19) & "L" & Mid(Cells(zz, 1), 20)
Next zz
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilen finden und Zeichen einsetzen
29.11.2007 13:01:39
Michael
vielen vielen dank,
genau was ich gesucht habe,....wie immer spitze dieses forum.
nochmal danke
mfg. michael

AW: Zeilen finden und Zeichen einsetzen
29.11.2007 12:54:30
ransi
HAllo Michael
Versuche es mal so:

Public Sub test()
Dim zelle As Range
For Each zelle In Range("A1:A1000")
    If Left(zelle, 2) Like "PT" Then _
        zelle = Replace(zelle, Mid(zelle.Text, 19, 1), _
        Mid(zelle.Text, 19, 1) & "L")
Next
End Sub

ransi

Anzeige
AW: Zeilen finden und Zeichen einsetzen
29.11.2007 12:59:00
Erich
Hallo Ransi,
hast du das getestet?
Mid(zelle.Text, 19, 1) kann oft in zelle vorkommen - nicht nur an Pos. 19.,
ersetzt wird das Zeichen an allen Stellen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Zeilen finden und Zeichen einsetzen
29.11.2007 13:06:00
ransi
HAllo Erich
AAAArg.
Getestet schon, allerdings nur auf das 19te und 20te Zeichen geschaut ob da auch ein "L" zugekommen ist.
Hast natürlich recht.
@Michael
Ignorier den Blödsinn den ich eben gepostet habe.
Ich ziehe den Beitrag zurück.
ransi

Anzeige
AW: Zeilen finden und Zeichen einsetzen
29.11.2007 15:12:37
Erich
Hallo Michael,
noch ne Lösung, mit Replace: 

Sub PTmitL2()
Dim rng As Range, str As String
For Each rng In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If Left(rng, 2) = "PT" Then
str = Left(rng.Text, 19)
rng = Replace(rng, str, str & "L", , 1)
End If
Next
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilen finden und Zeichen einsetzen
29.11.2007 13:21:53
dan
Hi, hier mein Versuch :-). Gruss Dan, cz.
Option Explicit
Private Const CHAR_POS = 19
Private Const FLAG As String = "PT"
Private Const INSERT As String = "L"

Public Sub ZeichenEinfuegen()
On Error GoTo errZeichenEinfuegen
Dim r As Range
Dim c As Range
Dim s As String
Dim s1 As String
Dim s2 As String
Set r = ActiveSheet.UsedRange
For Each c In r.Cells
s = c.Text
If (VBA.Strings.Left(s, 2) = FLAG) Then
If (VBA.Len(s) >= CHAR_POS) Then
s1 = VBA.Left(s, CHAR_POS)
s2 = VBA.Right(s, VBA.Len(s) - CHAR_POS)
c.Value = s1 & INSERT & s2
End If
End If
Next c
Exit Sub
errZeichenEinfuegen:
MsgBox Err.Description, vbCritical, "ZeichenEinfuegen Error"
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Zelle suchen und ausgeben per VBA
Lutz

Hallo,
ich habe eine Mehrdfachoperation, bei der ich mehrere Parameter gegeneinander auswerte. Dabei benutze ich immer eine %-Änderung der Parameter. Ich würde gerne neben den Ergebnissen der Mehrfachoperation aber auch die absoluten Werte der Parameter ausgeben. Da ich mehr als 7 Parameter...
10.02.2009 20:42:00
Thread-ID: 1049308
8 Beiträge
Zeile finden und Zellinhalte ändern
schneewittchen123

Hallo zusammen,
ich möchte ein Makro noch ein bisschen verfeinern und benötige noch mal Eure Hilfe:
Was funktioniert ist folgendes:
Ich habe ein Tabellenblatt "Tabelle1", in dem ich in Spalte A eine Artikelnummer stehen habe. Nun gibt es für dieses Material bestimmte Entscheidungen...
24.02.2009 15:37:44
Thread-ID: 1053560
3 Beiträge
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Anzeige
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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