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

11-stl. Text in anderem Text enthalten?

Forumthread: 11-stl. Text in anderem Text enthalten?

11-stl. Text in anderem Text enthalten?
09.07.2024 10:44:19
Klaus
Hallo Forum,
ich steh auf dem Schlauch und brauche VBA-Hilfe.

Ich habe in Zelle B1 einen fixen Wert (Vergleichswert). Jetzt sollen die Zellen B2-J2 jeweils verglichen werden. Wenn B2 > "" und die ersten 11 Stellen gleich sind, dann Zelle B2 löschen. Wenn C2 > "" und die ersten 11 Stellen gleich sind, dann Zelle C2 löschen. etc., etc. ...

Wie mache ich das mit VBA?
Dies wird ein Teil eines bereits vorhanden Codes, deshalb geht das leider nur mit VBA.

Vielen Dank schon im Voraus.
Gruß Klaus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
if left(zellbezug;11) =vergleichswert then
09.07.2024 10:48:49
ralf_b
AW: if left(zellbezug;11) =vergleichswert then
09.07.2024 11:43:08
Klaus
Hallo Ralf,
merci, funktioniert 
        Range("B2:J2").Select

        For Each cell In Selection

            If Left(cell, 11) = Left(Range("B1"), 11) Then

                cell.ClearContents

            End If

        Next

Gruß Klaus
Anzeige
AW: 11-stl. Text in anderem Text enthalten?
09.07.2024 11:14:07
GerdL
Hallo Klaus! 
Sub Unit()



    Dim z As Long, vgltext As String

    

    vgltext = Cells(1, 2)

    If Len(vgltext) = 11 Then

        For z = 10 To 2 Step -2

            If Left$(Cells(2, z), 11) = vgltext Then Cells(2, z).ClearContents 'oder:.Delete

        Next

    End If

End Sub

Gruß Gerd
Anzeige
AW: 11-stl. Text in anderem Text enthalten?
10.07.2024 15:54:14
daniel
Hi
vielleicht auch einfach so, wenn ich es richtig verstanden habe: 

Range("B2:J2").Replace Range("B1")&"*", "", xlwhole

Gruß Daniel
AW: 11-stl. Text in anderem Text enthalten?
09.07.2024 11:47:08
Klaus
Hallo Gerd,
auch an dich vielen Dank
Gruß Klaus

Forumthreads zu verwandten Themen

Zelle löschen wenn Formel kein übertrag macht
Roger

Hallo
Ich hab da folgendes Problem das ich gern egelöst hätte.
Auf einem Blatt (übersicht) habe ich in den Zeilen 7 - 210 Formeln eingetragen, die auf andere Blätter (Monate) verweisen. Wenn nun auf dem anderen Blatt z.b. Monat Januar und Monat Dezember etwas eingetragen wird so wird e...
08.10.2008 11:16:00
Thread-ID: 1014963
8 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Formeln sollen im nur arbeiten wenn Zelle leer ist
Andy

Hallo,
ich weiß nicht ob das überhaupt machbar ist.... aber hier meine Frage.
Wenn ich in Zellen, Formeln stehen habe die mir Werte ausgeben, und ich aber manchmal den Wert nicht akzeptieren möchte und Ihn deswegen Überschreibe. Dann ist normalerweise die Formel in der Zelle weg.
Kö...
26.06.2009 12:01:06
Thread-ID: 1084556
24 Beiträge
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 07:04:58
Thread-ID: 1102152
3 Beiträge
Listbox.text in Zelle einfügen
tobi

Hi,
wie kann ich einener Zelle die Text Eigenschaft eines Listfeldes zuweisen?Thanx Tobi
11.04.2002 13:29:06
Thread-ID: 112425
2 Beiträge
Anzeige
Wenn o dann Text in A1 rot
Heinz A. Wankmüller
Hallo Jörg,dafür verwendest am besten die Bedingte Formatierung.
Setze den Cursor in die Zelle A1 und rufe Format/Bedingte Formatierung auf. Wähle anstatt Zellwert ist den Eintrag Formel ist und gib die Formel =$A$12="o" ein. Danach definierst du noch das gewünschte Format mit roter, vielleicht...
16.04.2002 17:25:23
Thread-ID: 113808
2 Beiträge
Summewenn der letzen 8 in der liste
Otto

Hallo experten,
Ich zerbreche mir den Kopf mit einer Aufgabe, hoffe Ihr könt mir helfen.
Ich glaube am besten kann man sehen was ich meine wenn man sich die Datei ankuckt aber ich werde es versuchen zu erklaeren.
Ich habe eine liste mit Farbennamen und Zahlen. Ich moechete die Summe...
15.02.2010 20:43:13
Thread-ID: 1138744
4 Beiträge
Anzeige
Wenn in D3 = X, Dann Text aus C3 -VBA
Wolfgang

Hallo,
über einen UF -mit entspr. OptionButton- wird in Spalte D ein X gesetzt. Wie kann ich erreichen, dass bei entsprechendem X der Text aus Spalte C in Zelle A 48 übernommen wird?
D3 = X, also C3 Text in A48 + ggfs. D5 = X, also Text C5 usw. - Der Bereich erstreckt sich dabei von D3...
07.03.2010 14:43:48
Thread-ID: 1144123
9 Beiträge
Abfrage, ob in Textbox ein "." enthalten ist
tom_r

Hi,
ich möchte prüfen, ob im Textfeld einer UF ein "." enthalten ist und dann soll entsprechend verzwiegt werden. Aber irgendwie hat das nicht hin. Mit "." passiert nichts, nur wenn der Inhalt keinen "." hat, bekomm ich ein Ergebnis.
so sieht meine Prüfung aus
Select Case InStr(1, A...
16.03.2010 13:00:20
Thread-ID: 1146203
5 Beiträge
Farbe wenn Zelle = Formel enthält
Karl

Hallo liebe Excel Profis,
wie kann ich in Excel 2003 mit bedingter Formatierung einstellen, dass die Zellefarbe automatisch geändert wird (zB blau), sobald eine Zelle eine Formel enthält?
Vielen vielen Dank im Voraus.
K
06.05.2010 10:54:32
Thread-ID: 1155756
4 Beiträge
Verschachtelte WENN Funktion gibt Text nicht aus
Martin

Hallo zusammen,
kann mir jemand sagen warum untenstehende Formel leider nur die Fehlermeldung #WERT! auswirft?
Die Bezüge sind alle korrekt und das Feld, das die Formel enthält hat das Format "Standard".
Ich habe dieselbe Formel in leicht abgewandelter Form bereits erfolgreich in...
19.05.2010 16:31:30
Thread-ID: 1157883
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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