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

alle "No" nur am anfang einer Zelle loeschen

Forumthread: alle "No" nur am anfang einer Zelle loeschen

alle "No" nur am anfang einer Zelle loeschen
04.10.2007 07:54:00
grossermanitu
Guten Morgen allerseits,
ich habe die Suchen & Ersetzen funktion schon ausgereizt. Leider finde ich keine passende Loesung wie ich alle "No" nur am anfang einer Zelle loeschen kann.
Vielen Dank im Voraus.
Gruesse aus Kuala Lumpur.

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle "No" nur am anfang einer Zelle loeschen
04.10.2007 08:18:00
Chaos
Servus,
z.B. so:

Sub No()
Dim letzte As Long
Dim anz As String, neu As String
Dim diff As Double
Dim zelle As Range, Breich As Range
letzte = Range("A65536").End(xlUp).Offset(0, 0).Row
Set bereich = Range("A1:C" & letzte)
For Each zelle In bereich
If zelle.Value Like "No *" Then
anz = Len(zelle.Value)
diff = anz - 3
neu = Right(zelle.Value, diff)
zelle.Value = neu
End If
Next zelle
End Sub


löscht alle "No ", die nach dem No ein Leerzeichen haben. Wenn du grundsätzlich alle No löschen willst, die am Anfang stehen, musst du das Leerzeichen in If zelle.Value Like "No *" Then nach No rausnehmen, also so:
If zelle.Value Like "No*" Then
Hier jetzt für den bereich A1 bis C und letzte.
Gruß
Chaos

Anzeige
AW: alle "No" nur am anfang einer Zelle loeschen
04.10.2007 08:28:00
grossermanitu
besser gehts nicht. Vielen vielen Dank.

AW: Bitteschön owt.
04.10.2007 08:30:00
Chaos
.

AW: Bitteschön owt.
05.10.2007 04:46:16
grossermanitu
Guten Morgen, ich bin es nochmal. Bei mir ist ein neue Huerde aufgetaucht. Wie muss ich den das Makro umschreiben, damit es mir alle , loescht die am anfang nach einer Zahl stehen. bsp.:
12, Maisonstreet, Test, Test2
nach Makro
12 Maisonstreet, Test, Test2
Vielen Dank schonmal im Voraus.

Anzeige
AW: Bitteschön owt.
05.10.2007 08:54:00
Chaos
Servus "Indianergott" ,
das könnte man z.B. so lösen:

Sub Zahl()
Dim letzte As Long
Dim anz As String, neu As String
Dim diff As Double
Dim zelle As Range, Breich As Range
letzte = Range("A65536").End(xlUp).Offset(0, 0).Row
Set Bereich = Range("A1:C" & letzte)
For Each zelle In Bereich
If IsNumeric(Left(zelle.Value, 1)) Then
Dim I As Integer
Dim zähler As Long
zähler = 0
For I = 1 To Len(zelle.Value)
Select Case Mid(zelle.Value, I, 1)
Case ",":
Exit For
Case " ":
If Mid(zelle.Value, I + 1, 1)  "," And Mid(zelle.Value, I + 1, 1)  " " Then
Exit For
End If
End Select
zähler = zähler + 1
Next I
anz = Len(zelle.Value)
diff = anz - zähler - 1
neu = Right(zelle.Value, diff)
zelle.Value = Left(zelle.Value, zähler) & " " & neu
zelle.Value = Replace(zelle.Value, "  ", " ")
zelle.Value = Replace(zelle.Value, "  ", " ")
End If
Next zelle
End Sub


Gruß
Chaos

Anzeige
AW: alle "No" nur am anfang einer Zelle loeschen
09.10.2007 09:01:00
grossermanitu
Vielen Dank Chaos. Das geht wieder.
Man ich muss ich endlich gescheit VBA lernen. Bei einer Stelle allerdings zeigt er mir einen Fehler und startet den Debugger:
neu = Right(zelle.Value, diff)

Forumthreads zu verwandten Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Datei Speichern - Name aus 3 Zellen
Michael

Hallo,
ich speichere eine Datei unter einem Namen ab, welcher in Zelle B3 des Blattes steht.
name = "S:\Temp\LAUF_P" & ActiveSheet.Range("B3").Value & ".txt"
nun möchte ich aber noch die Zellen A7 und B7 mit einbinden, so dass der name letztlich so aussieht:
LAUF_PB3/A7/...
28.11.2008 11:22:21
Thread-ID: 1028629
3 Beiträge
Anzeige
Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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