Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einfügen von *

Forumthread: einfügen von *

einfügen von *
01.09.2004 08:29:52
*
Hallo Leute!
Kann mir jemand helfen den Code zu schreiben, der jeweils in allen 30 Zeilen unterhalb von *Manufacturer ebenfalls ein * vor das dort stehende Wort macht?
Dankeschön!

Sub Sterne_einfügen()
Dim l As Integer
For l = 1 To Range("A1000").End(xlUp).Row
If Range("A" & l).Value = "Manufacturer=" Then Range("A" & l) = "*Manufacturer="
Next l
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: einfügen von *
*
Hallo Fabienne,
Vielleicht so:

Sub Sterne_einfügen()
Dim l As Integer
Dim l2 As Integer
For l = 1 To Range("A1000").End(xlUp).Row
If Range("A" & l).Value = "Manufacturer=" Then
Range("A" & l) = "*Manufacturer="
For l2 = l + 1 To l + 31
Range("A" & l2).Value = "*" & Range("A" & l2).Value
Next l2
End If
Next l
End Sub

Gruss Hansueli
Anzeige
AW: einfügen von *
01.09.2004 09:12:03
*
Vielen dank für eure Hilfe!
Hansueli, deine Version funktioniert einwandfrei!
AW: einfügen von *
*
Hansueli, kannst du mir noch sagen, was ich machen müsste um alle Zeilen mit einem Stern zu versehen von "Manufacturer" bis "Other data" kommt?
Danke!
AW: einfügen von *
01.09.2004 09:40:18
* 

Sub Sterne_einfügen()
Dim l As Integer
For l = 1 To 500
If Cells(l, 1).Value = "Other data" Then Exit Sub
If Cells(l, 1).Value = "Manufacturer" Then
Cells(l, 1).Value = "*Manufacturer"
End If
Next l
End Sub

Anzeige
AW: einfügen von *
*
Salut Andi
Merci für deine Hilfe, aber leider macht mir dieser Code nicht vor jedes bestehende Wort zwischen "Manufacturer" und "Other data" ein Stern.
AW: einfügen von * bis other data
*
Hallo Fabienne,
Ich würde sagen, so:

Sub Sterne_einfügen()
Dim l As Integer
Dim l2 As Integer
For l = 1 To Range("A1000").End(xlUp).Row
If Range("A" & l).Value = "Manufacturer=" Then
Range("A" & l) = "*Manufacturer="
l2 = l + 1
While Range("A" & l2).Value <> "Other data"
Range("A" & l2).Value = "*" & Range("A" & l2).Value
l2 = l2 + 1
Wend
End If
Next l
End Sub

Gruss Hansueli
Anzeige
AW: einfügen von *
01.09.2004 08:56:35
*
Ist es das:

Sub Sterne_einfügen()
Dim l As Integer
For l = 1 To 300
If Cells(l, 1).Value = "Manufacturer=" Then
Cells(l, 1).Value = "*Manufacturer="
End If
Next l
End Sub

Gruß Andi
;

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