Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1336to1340
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
1336to1340
1336to1340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen vor dem Text ersetzten

Zeichen vor dem Text ersetzten
10.11.2013 00:23:39
Zeny
Hallo,
ich habe eine Frage. Ich habe eine Tabelle mit X einträgen. Ich muss ein Code machen, in dem vor jedem Eintarg eine "h" vorne steht und eine "h" hinten.
Wie mache ich das mit einem VBA Code?
also vorher:
Spalte 1:
AA
BB
CC
DD
und so will ich es haben:
Spalte 1
h AA h
h BB h
h CC h
h DD h
ohne dass ich jede zeile Manuell ergänzen soll.
Danke im Voraus!

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen vor dem Text ersetzten
10.11.2013 00:50:50
Andy
Hallo Zeny,
meinst Du so: Schleife + verketten
Sub test2()
lrow = Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 1 To lrow
wert = Cells(i, 1)
wert_mod = "h " & wert & " h"
Cells(i, 1) = wert_mod
Next i
End Sub
Gruß Andy

nimm nicht ... (xlCellTypeLastCell).Row
10.11.2013 05:17:29
Matthias
Hallo Andy
lrow = Cells.SpecialCells(xlCellTypeLastCell).Row
würde ich eher nicht benutzen, da es ja Zeilen außerhalb der Spalte(1) mit berücksichtigt.
Nehmen wir mal an in A1:A4 stehen die Werte die geändert werden sollen.
In C10 steht z.B. aber auch ein Wert.
Was passiert wenn jetzt der Code so durchläuft? Probiers mal aus.
Auch wenn Du den Inhalt von C10 jetzt wieder löschst,
wird beim nächsten Mal der gleiche Bereich gefüllt.
Zusätzlich würde ich noch abfragen ob nicht evtl. links schon die Zeichenfolge "h " steht.
Sonst wird bei jedem Ausführen vom Code immer wieder ein "h " vor und ein " h" hinten angefügt.
Gruß Matthias

Anzeige
Hier noch das Bsp. wie ich das meinte
10.11.2013 05:25:47
Matthias
Hallo
lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lrow
If Left(Cells(i, 1), 2)  "h " Then
wert = Cells(i, 1)
wert_mod = "h " & wert & " h"
Cells(i, 1) = wert_mod
End If
Next i
Gruß Matthias

AW: Hier noch das Bsp. wie ich das meinte
10.11.2013 11:40:21
Zeny
Hallo,
Besten Dank für den Ansatz. Es funktioniert :)
Ich habe das jetzt nur auf Spalte 1 angewendet, was muss ich machen, damit es für den ganzen EXCEL Blatt (Alle Spalten und Zeilen) funktioniert?
Besten Dank und Gruß
Zeny

AW: nimm nicht ... (xlCellTypeLastCell).Row
10.11.2013 11:46:46
Andy
Hallo Matthias,
Du hast Recht. Besser ist "lrow = Cells(Rows.Count, 1).End(xlUp).Row". Man weiß ja nie, welche Werte in den anderen Spalten noch stehen. Bevor dann in den leeren A-Zellen überall "h h" steht.
Gruß Andreas

Anzeige
AW: nimm nicht ... (xlCellTypeLastCell).Row
10.11.2013 11:56:09
Zeny
Hallo,
Besten Dank für Eure Antworten!!!
Es funktioniert.
Wie kann ich den Code ergänzen, damit eine "h" in ALLEN Zeilen und Spalten einer EXCEL Tabelle steht..
Spalte 1 Spalte 2
h AA h h EE h
h BB h d ZZ h
h DD h u TR h
Besten Dank im Voraus!
Gruß Zeny

+ noch eine Variable für die Spalten
10.11.2013 12:08:36
Matthias
Hallo
Um mal beim Grundgerüst von Andy zu bleiben,
könnest man es so machen
Option Explicit
Sub ALLE()
Dim Col&, Lrow&, i&, wert_mod$, wert$
Application.ScreenUpdating = False
For Col = 1 To 256 'Spaltenanzahl anpassen
Lrow = Cells(Rows.Count, Col).End(xlUp).Row
For i = 1 To Lrow
If Left(Cells(i, Col), 2)  "h " And Cells(i, Col)  "" Then
wert = Cells(i, Col)
wert_mod = "h " & wert & " h"
Cells(i, Col) = wert_mod
End If
Next i
Next
End Sub
Gruß Matthias

Anzeige
AW: + noch eine Variable für die Spalten
10.11.2013 13:47:11
Zeny
Besten Dank!!!!

Es krankt wie immer an der Formulierung
10.11.2013 12:33:47
EtoPHG
Hallo zusammen,
Zitat-Betreff:Zeichen vor dem Text ersetzten
Ich nehme an es müsste ersetzen heissen, aber uuups, im Beitrag steht dann
Zitat:vor jedem Eintarg eine "h" vorne steht und eine "h" hinten.
aha, nichts ersetzen, sondern ergänzen, aber uuups, das Beispiel zeigt dann
Zitat:h AA h, als nicht nur ein "h" sondern h-Leerstelle bzw. Leerstelle-h
dann Zitat: mit einem VBA Code und Zitat: den ganzen EXCEL Blatt (Alle Spalten und Zeilen)
Warum mit gleich mit der VBA-Keule rein?
Formatiere alle Zellen mit 

"h "@" h"
und der Kessel ist geflickt, aber beschreib ihn nächstes Mal konsistenter.
Gruess Hansueli
Anzeige

309 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Formel, rechts #### bis leer Zeichen
mehmet

Hallo Forum,
in Zelle B2 habe ich z.B. "ABC 314 " stehen.
Nun möchte ich in Zelle D2 folgende String darstellen:
zähle von links vier Strings nach rechts "ABC "
mache aus "314 " nun eine vierstellige Zahl "0314 "
entferne die zwei Leerzeichen nach der Zahl "0314 ", so da...
16.09.2008 10:46:00
Thread-ID: 1009991
8 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Anzeige
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 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
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
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
6
2
7
3
2
3
4
7
5
3
5
3
4
1
8
9
7
2
1
1
4
3
7
2
2