Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Buchstaben löschen

Forumthread: Buchstaben löschen

Buchstaben löschen
21.02.2006 07:30:57
Frank
Guten Morgen!
Hab eine Frage.
Mit angeführten makro lösche ich alle Buchstaben aus Spalte a Zeile 14.
kann ich das makro so umschreiben das alle Buchstaben in der zeile 14 von spalte a bis d gelöscht werden?

Sub BuchstabenLöschen()
Dim Inhalt$
sp = 1 'Spalte A
z1 = 14 'Erste Zeile
Zn = 14 'Letzte Zeile
For i = z1 To Zn
Inhalt = Cells(i, sp)
For j = 1 To Len(Inhalt)
II = Asc(Mid(Inhalt, j, 1))
If II >= 65 And II <= 255 Then ' Buchstaben raus
Mid(Inhalt, j, 1) = " "
End If
Next
Cells(i, sp) = Inhalt
Next
End Sub

Danke
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Buchstaben löschen
21.02.2006 07:53:29
yogi
Tach Frank
mit einem zweiten For:

Sub BuchstabenLöschen()
Dim Inhalt$
sp = 1 'Spalte A
z1 = 14 'Erste Zeile
Zn = 14 'Letzte Zeile
For sp = 1 to 4 ' Spalte 1 bis 4
For i = z1 To Zn
Inhalt = Cells(i, sp)
For j = 1 To Len(Inhalt)
II = Asc(Mid(Inhalt, j, 1))
If II >= 65 And II <= 255 Then ' Buchstaben raus
Mid(Inhalt, j, 1) = " "
End If
Next
Next
Cells(i, sp) = Inhalt
Next
End Sub

Gruss
yogi
Anzeige
AW: Buchstaben löschen
21.02.2006 08:05:12
UweD
Hallo
so z. B.

Sub BuchstabenLöschen()
Dim Inhalt$, II$, S1%, S2%, z1#, zn#, i%, j%, k%
S1 = 1 'Spalte A
S2 = 4 'bis D
z1 = 14 'Erste Zeile
zn = 14 'Letzte Zeile
For k = S1 To S2
For i = z1 To zn
Inhalt = Cells(i, k)
For j = 1 To Len(Inhalt)
II = Asc(Mid(Inhalt, j, 1))
If II >= 65 And II <= 255 Then ' Buchstaben raus
Mid(Inhalt, j, 1) = " "
End If
Next j
Cells(i, k) = Inhalt
Next i
Next k
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Buchstaben löschen
21.02.2006 08:15:43
Frank
Danke für die rasche antwort.
;

Forumthreads zu verwandten Themen

Anzhal Buchstaben A-Z, Ü,Ö,Ä zählen
Jörg

Hallo zusammen,
meine Freundin möchte in ihren Klassen ein Abschiedsgeschenk machen in Form von Namensketten. Also jedes Kind soll eine Kette mit seinem / ihrem Namen bekommen. (Jan, Tim, Öcgür, Stephanie etc.)
Da sie nun aber in 4 Klassen a 25-30 Kinder mit verschieden langen Namen unt...
28.11.2008 08:33:14
Thread-ID: 1028546
8 Beiträge
Mit Buchstaben und Wörtern rechnen
via

Hallo da draußen,
ich stehe mal wieder vor einer neuen Herausforderung. Und zwar möchte ich mit Buchstaben bzw. Wörtern rechnen und eine Antwort überprüfen ob sie richtig oder falsch ist.
Als Beispiel:
Elefant < Maus (leichter)
Maus > Hund (schwerer)
Maus < Katze (l...
16.12.2008 18:43:27
Thread-ID: 1033391
10 Beiträge
Anzeige
Bestimmte Buchstaben in Zelle löschen
BeZu

Für Profis mit Sicherheit einfach:Ich kopiere von einer Anwendung eine Struktur in ein anderes Blatt. Dabei kopiere ich auch eine Verknüpfung zum Quellblatt in das Zielblatt, die ich eliminieren möchte. Die Daten auf Quell- und Zielblatt stehen immer in den Zellen B2 bis R2. Die Blätter heissen...
05.06.2002 12:01:10
Thread-ID: 126110
3 Beiträge
Einzelne Buchstaben in Spalte löschen
Stefan

Hallo,ich möchte folgendes realisieren:In Spalte A habe ich Worte, die alle 8 Buchstaben bzw. Zahlen lang sind. Von diesen 8 Buchstaben möchte ich die letzten beiden löschen.
Gibt es ein Makro, welches mir das erledigt??Vielen DankStefan
20.09.2002 08:53:07
Thread-ID: 162013
4 Beiträge
SpaltenKöpfe: Wörter statt Buchstaben
Dirk

Hallo,
kann mir jemand sagen, wie ich statt der Buchstaben Wörter in die Spaltenköpfe bekomme? Danke Dirk

09.02.2003 20:50:14
Thread-ID: 216436
3 Beiträge
Variable Buchstabenweise erhöhen ?
Robert Nägele
Hi,
Wie kann ich bitte eine Variable in VBScript jeweils um eins erhöhen, jedoch nicht mit Zahlenwerten sondern mit dem Alphabet .
sowas wie :
While alpha /= z do
alpha = alpha +1
Ich raff das in der Art eben nicht :(
Ich freue mich über jede Antwort
08.07.2003 08:42:45
Thread-ID: 278148
3 Beiträge
Buchstaben löschen
Detlef
Hallo Profis,
ich habe in Spalte "E" in jeder
Zeile ein Text mit 12 Buchstaben und
die letzten 3 Ziffern sind Zahlen. Nun möchte
ich gerne in jeder Zeile in Spalte "E"
die Buchstaben löschen, so dass nur die 3
Zahlen stehen bleiben.
Hat jemand eine Idee ?
Gruss Detlef
...
06.02.2004 10:32:57
Thread-ID: 377534
5 Beiträge
Buchstaben frei platzieren und auch wieder löschen
Hans

Hallo
Das Problem: Es fehlt mir eine Punktdiagrammdarstellung, bei der die Punkte selber grad die Bezeichnung darstellen (als Buchstaben A-Z). Wie im hochgeladenen Blatt das violette A (https://www.herber.de/bbs/user/4792.xls
).
Daher möchte ich in einem Tabellenblatt (nicht Userform...
01.01.1970 00:00:00
Thread-ID: 406367
4 Beiträge
Buchstaben vertauschen mit allen möglichkeiten
chrigi

Hallo zusammen
Ich habe ein Problem ich möchte bei einem Wort die Buchstaben vertauschen
und alle Möglichkeiten anzeigen zu lassen
Danke schon im voraus
27.06.2004 18:43:53
Thread-ID: 446589
11 Beiträge
Anzeige
Suche nach ganzen Wörtern/Wortteilen
Steffen

Guten morgen,
nun komme ich aber wirklich nicht weiter. Ich Frage über eine Userform einen Suchbegriff ab und lasse nach diesem suchen. Nun ist es so, dass auch ein Treffer gemeldet wird, wenn der gescuhte Begriff nur ein Teil eines Wortes ist. Z.B. wenn mannach "Test" sucht wird "Testberic...
30.07.2004 09:45:10
Thread-ID: 462596
5 Beiträge
Letzten Buchstaben löschen
Hans

Hallo Profis!
Ich habe eine Frage:
Ich will per Makro bei einem Wort, das in der Zelle "A1" steht den letzten Buchstabe löschen. Weiß jemand wies geht?
Danke
Hans
15.12.2004 18:56:34
Thread-ID: 533698
6 Beiträge
Von Wort die letzten 2 Buchstaben löschen
Stefan

Hi!
Ich will bei einem Wort die letzten 2 Buchstaben löschen.
Ich weiß nur nicht wie?
Ich will es aber per MAKRO machen!!!!
Wenn es jemand weiß, bitte posten!!
Danke
Stefan
16.12.2004 19:26:51
Thread-ID: 534461
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige