Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Säubern und die letzten 5 Zeichen prüfen

Forumthread: VBA Säubern und die letzten 5 Zeichen prüfen

VBA Säubern und die letzten 5 Zeichen prüfen
Sebastian
Hallo,
ich habe mal eine kurze Frage,
ich hole mir mithilfe von Sendkeys (STRG+C) Anweisungen einen Link aus dem IE
Jetzt würde ich gerne in VBA überprüfen, ob die letzten 5 stellen des Links = 5000 ist.
In Excel selber mach ich das so…
K38 hier wird der Link hinkopiert
K39 =säubern(K38) (Damit das Sonderzeichen am ende des Links weg ist)
K40 =RECHTS(K40;5)
Kann ich das auch in VBA Realisieren, damit ich das nicht immer alles Zwischenspeichern muß?
Besten dank im Voraus
Sebastian
Anzeige
AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:02:50
EvilRik
Hallo Sebastian, 

Sub Link()
Dim Link As String
Link = "htttp:\\jkfvdfv5000.de\"
If Link Like "*5000*" Then MsgBox "Gefunden"
End Sub

Gruß Henrik
AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:09:06
Sebastian
mmh,
das ist schonmal ein Anfang.
Gibts in VBA die Funktion "Säubern"?
Gruß
AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:15:48
andy007
Hallo Sebastian wie wärs hiermit ,wenn Du tatsächlich die letzten 4 Stellen des links prüfen möchtest.
Sub Link()
Dim Link As String
Link = "http:\\blablabla.de?me=5000"
If Right(Link, 4) = "5000" Then
MsgBox "Gefunden"
End If
End Sub

Gruß,
Andreas
Anzeige
AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:16:04
Hajo_Zi
Hallo Sebastian,
Application.WorksheetFunction.Clean ()

AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:19:12
EvilRik
Hallo Sebastian,
hier nochmal korrigiert.
Das erste Makro liefert auch "Gefunden", wenn 5000 nicht an vorletzter Position im Link.
Ja, säubern gibt's. Aber warum möchtest du säubern? =CLEAN()
Diese Befehle erhälst du aber auch per Aufzeichnung mit dem Makrorekorder. 
Sub Link()
Dim Link As String
Link = "http:\\www.5000jkfvdfv5000\"
If Len(Link) - (InStrRev(Link, "5000", -1, vbTextCompare) + 3) = 1 Then MsgBox "Gefunden"
End Sub

Gruß Henrik
Anzeige
AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:32:43
Sebastian
Das ist alles super Jungs...
passt wunderbar..
Aber noch eine Frage!! wenn ich nciht weiß wie die letzten 5 Zeichen sind, wie kann ich mir die anzeigen lassen!?
=Right(Link,5) owT
09.09.2010 10:34:31
EvilRik
AW: VBA Säubern und die letzten 5 Zeichen prüfen
09.09.2010 10:35:35
Hajo_Zi
Hallo Sebastian,
Option Explicit 
Sub Link()
Dim Link As String
Link = "http:\\www.5000jkfvdfv5000\"
MsgBox Right(Link, 5)
End Sub

Gruß Hajo
Anzeige
;

Forumthreads zu verwandten 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
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
VBA FormulaArray nur 256 Zeichen
Werner

Hallo Zusammen,
ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)
Bei einer bestimmten Matrixformelgröße, ü...
25.10.2008 21:25:22
Thread-ID: 1019276
9 Beiträge
Makro nur beim ersten Öffnen ausführen
gregor

Guten Morgen!
Kann mir vielleicht jemand bei einem Problem helfen - ich möchte nämlich ein makro nur
beim ersten Öffnen automatisch ausführen - danach nicht mehr!
Geht das irgendwie?
Danke!
27.11.2008 10:09:00
Thread-ID: 1028240
5 Beiträge
Anzahl der Zeichen in einer Zelle
Jan

Guten Morgen
Welcher Befehl zählt die Zeichen in einer Zelle?
Danke
Gruß Jan
07.01.2009 08:38:00
Thread-ID: 1037436
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
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Letzten 3 geänderten Zeilen in einer Zelle anzeige
Tobias

Ich hab schon eine Funktion, die mir bei jeder änderunng in einer Zeile einen Datumsstempel in Spalte D schreibt.
Ich möchte nun in EINER Zelle die 3 Werte von Spalte A anzeigen, die bei Spalte D das neueste Datum anzeigen. (Es reichen die letzten 3 Werte, kommagetrennt...)
(Wie) kann...
20.02.2009 08:56:00
Thread-ID: 1052332
14 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
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