Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen aus String entfernen

Zeichen aus String entfernen
31.08.2017 23:57:39
snewi
Ich kopiere mir aus einer Spalte mehrere Strings in eine andere Spalte!
Sheets("Tabelle1").Columns("D:D").Copy
Sheets("Tabelle2").Columns("H:H").PasteSpecial xlPasteValues
Jetzt steht in jeder Zeile der Spalte immer ein "... mehr" mit im Text! Diesen möchte ich aber nicht mitkopieren! es steht immer ganz am Ende des Strings!
Wie funktioniert das?
Gruss

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen aus String entfernen
01.09.2017 00:05:07
Joni
Hi,
führe am Ende für die Spalte H ein Suchen nach "... mehr" / Ersetzen durch "" aus.
Schon erledigt.
Gruß Joni
AW: Zeichen aus String entfernen
01.09.2017 00:31:22
Piet
Hallo snewi
du hast ja die seltsamsen Effekte. Hört sich ein bisschen wie "Poltergeist" an. Verhexter PC (Harry Potter)
Nein im Ernst, ich habe bisher noch nie gehört das Excel beim Kopieren noch einen Text hinten dranhaengt!
Kannst du bitte eine kleine Beispieldatei mit 10-15 anonymen Daten und deinem Original Code erstellen.
Das seltsame Phaenomen würde ich mir gerne mal an einem echten beispiel ansehen!!!
mfg Piet
Das hast du wohl falsch verstanden, ...
01.09.2017 01:27:51
Luc:-?
…Piet;
die ursprüngliche Quelle dieser Texte wdn wohl InternetSeiten von Medien-OnLine-Portalen sein. Dort sind solche Textkürzungen mit Link zum vollständigen unter mehr üblich. Evtl könnten das auch keine 3 Punkte sein, sondern das ASCII-Zeichen 133 (…).
🙈 🙉 🙊 🐵 Morrn, Luc :-?
Besser informiert mit …
Anzeige
Und das hängt sicher mit dem Vorgänger ...
01.09.2017 01:44:16
Luc:-?
…zusammen:
Daten per VBA aus IE auslesen
Erinnerst du dich‽
Luc :-?
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 08:41:39
snewi
Ja genau das ist es! Luc ich lese Daten aus und da ist das eben mit dabei! Wie bekomme ich das beim Kopiervorgang weg?
Gruss
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 09:00:48
UweD
hallo
so?
Sub ddg()
    Dim Wegdamit As String
    
    Wegdamit = "... mehr"
    
    With Sheets("Tabelle2").Columns("H:H")
        .Value = Sheets("Tabelle1").Columns("D:D").Value
        
        .Replace What:="... mehr", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByColumns
    End With

End Sub

LG UweD
Anzeige
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 09:03:29
UweD
natürlich mit der Variable...
        .Replace What:=Wegdamit, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns

AW: Danke, habs verstanden
01.09.2017 12:39:19
Piet
Hallo
und Danke an Luc und snewi, bin nach meinem Beitrag schlafen gegangen und sehe erst jetzt eure Antwort.
Der Gedanke ist mir garnicht gekommen, war vielleicht schon zu müde .... (muss mehr auf Details achten)
mfg Piet
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 13:40:28
snewi
Ich übernehme die Werte mit dem ...mehr mit folgendem Coder aus der ersten Tabelle und packe sie in die zweite!:

Sub Copy_Description_Veranstalter()
Dim wks1 As Object
Dim wks2 As Object
Dim cl As Range
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
For Each cl In wks1.Range("C2:C" & wks1.Range("C2").End(xlDown).Row).Cells
wks2.Range("G" & cl.Row) = cl & Chr(10) & cl.Offset(0, 2)
Next
End Sub
Hier müsste ich das dann aufrufen? oder wie könnte ich das da einbinden! Oder erst kopieren und hinterher nochmal drüberlaufen lassen`?
Gruss
Anzeige
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 14:04:50
UweD
Hi
wenn du es unbedingt mit einer Schleife Zellenweise machen möchtest, dann ggf. so (ungeprüft)
Sub Copy_Description_Veranstalter()
    Dim wks1 As Object
    Dim wks2 As Object
    Dim cl As Range
    
    Set wks1 = Sheets("Tabelle1")
    Set wks2 = Sheets("Tabelle2")
        
        
    For Each cl In wks1.Range("C2:C" & wks1.Range("C2").End(xlDown).Row).Cells
        wks2.Range("G" & cl.Row) = _
            Replace(cl & Chr(10) & cl.Offset(0, 2), "... mehr", "")
    Next
       
End Sub
LG UweD
Anzeige
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 14:28:21
snewi
Es funktioniert so!
wie hätte denn die andere Variante ausgesehen und wäre diese deiner Meinung besser ?
Gruss
AW: Und das hängt sicher mit dem Vorgänger ...
01.09.2017 15:18:44
UweD
Hallo nochmal
erst wird eine Formel in den gesamten Bereich geschrieben, dann wird das in einen Wert gewechselt.
Sub Copy_Description_Veranstalter()
    Dim wks1 As Object
    Dim wks2 As Object
    Dim cl As Range, LR As Double
    
    Set wks1 = Sheets("Tabelle1")
    Set wks2 = Sheets("Tabelle2")
        
        
    LR = wks1.Range("C2").End(xlDown).Row
    With wks2.Range("G2:G" & LR)
        'Formel in gesamten Bereich 
        '=Tabelle1!C2&ZEICHEN(10)&WECHSELN(Tabelle1!E2;"... mehr";"") 
        
        
        .FormulaR1C1 = "=" & _
            wks1.Name & "!RC[-4]&CHAR(10)&SUBSTITUTE(" & _
            wks1.Name & "!RC[-2],""... mehr"","""")"
        .Value = .Value 'Formel in Wert ändern 
    End With
       
End Sub
LG UweD
Anzeige

44 Forumthreads zu ähnlichen Themen

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
nicht gültige Zeichen aus String filtern
heinzs

Hallo Excelfreunde,
in VBA möchte ich aus einem String nicht erlaubte Zeichen entfernen:
gn_erlaubte_zeichen = "1234567890HIN"
gn_string_original = "abc123HIN"
gn_string_resultat = "123HIN"
Da ich sehr viele Strings zu kontrollieren habe, würde ich ungern mit einer for-Next...
29.12.2010 11:42:18
Thread-ID: 1193168
7 Beiträge
Sonderzeichen aus Spalte entfernen
Peter

Hallo,
ich möchte aus der Spalte B alle Sonderzeichen
wie z.B. _, (,),? usw. entfernen.
Mein Versuch funktioniert leider nicht.
Wer kann helfen?
Siehe Anlage
Danke
Peter
Sub SonderzDel() Dim a As Integer For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row If Cells(a,...
03.03.2011 00:32:51
Thread-ID: 1203960
2 Beiträge
Anzeige
Per VBA , in . ändern in ersten 7-String-Zeichen
TommiH

Moin,
gibt es eine einfache Möglichkeit (einfacher als per left/mid/instr. oder split) um in den ersten 7 Zeichen einer Zelle die Kommas in Punkte zu ändern? Und das per VBA-Code?
Tommi
04.07.2011 15:34:05
Thread-ID: 1220870
3 Beiträge
chinesiches zeichen per VBA aus Text entfernen
Franz

Hallo Kollegen,
kann mit jemand sagen ob es möglich ist per VBA aus mehreren Zellen bestimmte Zeichen zu löschen.
Beispiel:
ich habe artikelbeschreibungen die wie folgt aussehen
右阀座C12045.6.1.25
压力表安装板BCW46D.6.10-4
管夹体SP322-PP DP-AS
测压管HFJ2-P3-3-P-800...
09.09.2011 07:55:42
Thread-ID: 1229171
5 Beiträge
Bereich markieren u. Zeichen daraus entfernen
Wolfgang

Guten Abend, liebe Excel-Gemeinde !
Irgendwie stehe ich auf dem Schlauch. Hoffentlich kann mir jemand helfen...
Ich bekomme aus unterschiedlichen Quellen Materialnummern im Excelformat
für die Erstellung von Versandaufträgen zugeschickt.
Mal haut der Absender Leerzeichen dazwis...
26.09.2011 19:42:13
Thread-ID: 1231545
4 Beiträge
letzte Zeichen aus Variable entfernen
Hartmut_M

Hallo,
benötige bitte Hilfe zu folgendem Problem:
Habe in VBA eine Variable.
Aus dieser Variablen möchte ich die letzten 3 Zeichen entfernen.
Bekomme es im Moment nicht hin.
Wie lautet die richtige Anweisung?
Danke für eure Hilfe.
Hartmut
04.04.2012 11:12:13
Thread-ID: 1257818
3 Beiträge
Zeichen über der Raute aus Tabelle entfernen
ropa

Hallo,
ich habe eine Tabelle in der mehrere Spalten mit Zahlen an der ersten STelle
das Zeichen auf der Rautentaste hat-
Jetzt kann ich mit den Werten nicht rechnen.
Wie kann ich dieses Zeichen entfernen.
Grüße
Roland
13.02.2013 17:28:34
Thread-ID: 1299197
15 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
4
7
6
1
2
2
4
3
2
14
4
5
11
2
1
12
6
2
16
2
10
4
2
2
11