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

Überschrift

Forumthread: Überschrift

Überschrift
29.02.2008 13:52:07
Manfred
Hallo zusammen,
habe mal wieder ein Problem, ich hoffe es kann mir jemand helfen. Viel gesucht aber nichts gefunden.
In Tab2 SpD1soll die Überschrift RT 1 stehen, nun sollte das Makro nach der nächsten Spalte suchen und
in die Zelle E1 den Wert auf RT 2 hoch setzen usw., bei jedem manuell ausgelöstem Durchlauf muss das so
weitergehen bis der Wert RT 108 erreicht ist, danach MsgBox, >die max. Anzahl ist erreicht Mit freundlichen Grüßen
Manfred

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Überschrift
29.02.2008 13:59:25
Rudi
Hallo,

Sub tt()
With Cells(1, Columns.Count).End(xlToLeft)
If Replace(.Value, "RT ", "") * 1 = 108 Then
MsgBox "Max erreicht"
Else
.Offset(0, 1) = "RT " & Replace(.Value, "RT ", "") + 1
End If
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Überschrift
29.02.2008 14:08:00
Manfred
Hallo Rudi,
vielen Dank für Deine schnelle Antwort.
Funktioniert super.
Ja, Ja, dieses Forum ist Weltklasse.
Grüße
Manfred
;

Beliebteste Forumthreads (12 Monate)

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