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

Die ersten 60 Zeichen in Range V4:V288 löschen

Forumthread: Die ersten 60 Zeichen in Range V4:V288 löschen

Die ersten 60 Zeichen in Range V4:V288 löschen
23.12.2007 00:01:00
Bernd
Hallo Freaks,
ich habe jetzt wirklich über eine Stunde (!) im Archiv gesucht um eine Lösung zu finden für mein im Betreff genanntes Problem. Vergebens!
Wie bringe ich im Bereich V4:V288 die ersten 60 Zeichen weg?
Danke Euch vorab.
Grüße
bernd

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Die ersten 60 Zeichen in Range V4:V288 löschen
23.12.2007 00:05:00
Josef
Hallo Bernd,
Sub erste60weg()
Dim a As Variant
Dim lngI As Long

a = Range("V4:V288")

For lngI = 1 To UBound(a, 1)
    a(lngI, 1) = Mid(a(lngI, 1), 60)
Next

Range("V4:V288") = a

End Sub

Gruß Sepp

Anzeige
@Sepp
23.12.2007 00:15:00
Bernd
Hallo Sepp,
ich habe gehofft, dass du mit hilfst. Ich teste deinen Code morgen (oder besser heute früh) mal, wobei testen wohl übertrieben ist. Deine Codes laufen immer.
Herzliche Grüße an Dich, ich gehe jetzt ins Bett.
Bernd, der aus München...

@Sepp E.: ...auch noch die Leerzeichen?
23.12.2007 11:43:21
Bernd
Hi Sepp,
leider habe ich jetzt noch eine recht unschöne Darstellung des verbleibenden Textes mit etlichen Leerzeichen zwischen der Abteilungsabkürzung und dessen Langtext, siehe Bsp: FA________Financal Audit (Hinweis: die Leerzeichen im Originaltext habe ich hier mit Unterstrichen aufgefüllt, damit die Optische Wirkung erkennbar bleibt).
Würdest Du bitte das Makro entsprechend erweitern, so dass auch die eleminiert Blanks werden? Leide ist die Anzahl dieser Leerzeichen nicht immer gleich. Stehen bleiben sollte also nur: "FA Financal Audit".

Sub erste60weg()
'von Sepp
Dim a As Variant
Dim lngI As Long
a = Range("V4:V288")
For lngI = 1 To UBound(a, 1)
a(lngI, 1) = Mid(a(lngI, 1), 60)
Next
Range("V4:V288") = a
End Sub


Grüße und Danke dir vielmals vorab.
Bernd, der aus München.

Anzeige
AW: @Sepp E.: ...auch noch die Leerzeichen?
23.12.2007 11:47:00
Josef
Hallo Bernd,
dann so.
Sub erste60weg()
'von Sepp
Dim a As Variant
Dim lngI As Long

a = Range("V4:V288")

For lngI = 1 To UBound(a, 1)
    a(lngI, 1) = Trim$(Mid(a(lngI, 1), 61))
Next

Range("V4:V288") = a

End Sub

Gruß Sepp

Anzeige
AW: ...und die Mehrfach-Leerzeichen
23.12.2007 12:38:51
Erich
Hallo Bernd und Sepp,
statt
a(lngI, 1) = Trim$(Mid(a(lngI, 1), 61))
empfiehlt sich hier wohl die Excelfunktion GLÄTTEN, die Mehrfachleerzeichen auf einfache Leerzeichen reduziert:
a(lngI, 1) = WorksheetFunction.Trim(Mid(a(lngI, 1), 61))
Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht euch schöne Feiertage!

Anzeige
@Erich & Sepp - -Danke!!!!
23.12.2007 15:29:00
Bernd
hallo, Ihr beiden Zauberkünstler,
der Vorschlag von Erich hat mir die Lösung gebracht, da nun alle Leerzeichen bis auf eines gelöscht wurden, so dass nun das gewünschte Ergebnis vorliegt.
Vielen Dank an Euch beide und auch von meiner Seite ein wunderschönes Weihnachtsfest udn vor allem ein gesundes neues Jahr.
Herzliche Grüße
Bernd, der aus München

Anzeige
@Sepp E.: ...auch noch die Leerzeichen?
23.12.2007 15:22:41
Bernd
Hi Sepp,
leider habe ich jetzt noch eine recht unschöne Darstellung des verbleibenden Textes mit etlichen Leerzeichen zwischen der Abteilungsabkürzung und dessen Langtext, siehe Bsp: FA________Financal Audit (Hinweis: die Leerzeichen im Originaltext habe ich hier mit Unterstrichen aufgefüllt, damit die Optische Wirkung erkennbar bleibt).
Würdest Du bitte das Makro entsprechend erweitern, so dass auch die eleminiert Blanks werden? Leide ist die Anzahl dieser Leerzeichen nicht immer gleich. Stehen bleiben sollte also nur: "FA Financal Audit".

Sub erste60weg()
'von Sepp
Dim a As Variant
Dim lngI As Long
a = Range("V4:V288")
For lngI = 1 To UBound(a, 1)
a(lngI, 1) = Mid(a(lngI, 1), 60)
Next
Range("V4:V288") = a
End Sub


Grüße und Danke dir vielmals vorab.
Bernd, der aus München.

Anzeige
;

Forumthreads zu verwandten 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
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
Anzeige
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Anzeige
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 Beiträge
Ein Teil einer Formel in andere Zelle ausgelagern
Hans

Ein Teil der Formel – der immer gleich ist - soll in eine andere Zelle ausgelagert werden. Ist die möglich, gibt es hierfür eine spezielle Funktion?
=WENN(E25=5;SVERWEIS(Rechn.!C25;'C:\Ornder\[dateiname.xls]tabelle'!$A$2:$B$17128;2;FALSCH);"")
=WENN(E25=5;SVERWEIS(Rechn.!C25; Verweis au...
14.06.2009 21:29:10
Thread-ID: 1081465
2 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Anzeige
Teilbereich aus einer Zelle
MikeM

Hallo zusammen,
eigentlich trivial aber ich bekomme es nicht hin.
In Zelle A1 steht: Datum: 01.01.2009
In A2 möchte ich stehen haben: 01.01.2009
Allerdings kann in A1 auch: 1.1.09 stehen
Die Formel: rechts(A1;10) würde funktionieren, wenn das Datum nicht auch im Format 1.1....
21.07.2009 08:16:34
Thread-ID: 1090112
4 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
Zellinhalte ab erstem Leerzeichen löschen
Kai

Hi,
wie kann ich den per Makro eine Spalte H bearbeiten und dort alle Inhalte , die in einer Zelle ab dem ersten Leerzeichen kommen, löschen, Wenn der inhalt mit "A" beginnt
Beispiel:
aus "A blablabla" soll "A" werden
aus "Antwort 5" soll "Antwort" werden
Aber wie ges...
11.09.2009 13:03:11
Thread-ID: 1101999
10 Beiträge
Zelle auslesen und aufteilen
Georg

Hallo Zusammen,
ich lese bereits Dateinamen in jeweils einzelne Zellen ein. In diesen steht dann folgendes Format, welches ich zerlegen möchte.
es sollte jeweils beim "_" geteilt werden und in eine eigene Zelle geschrieben werden.
Es gibt zwar sehr viele Beiträge zu diesem Thema, ab...
10.10.2009 11:04:07
Thread-ID: 1108706
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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