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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Strich durch die Rechnung :-)

Forumthread: Strich durch die Rechnung :-)

Strich durch die Rechnung :-)
06.09.2004 16:09:47
Sebastian
Hallo zusammen,
hab da ein kleines problem und bin dann beim googeln auf dieses forum gestoßen.
volgendes ich habe sechs zeilen in einer spalte etwa so:
R4950_1
R4950_2
...
R4950_6
Jetzt suche ich eine formel die es mir möglich macht wenn ich ein makro
starte das ganze zu kopieren, nur einen wert höher, also:
R4951_1
R4951_2
....
R4951_6
ich komme mit dem dummen unterstrich nicht zurecht!
Bin um jede hilfe dankbar!!
MfG
Sebastian
Anzeige
AW: Strich durch die Rechnung :-)
th.heinrich
hi Sebastian,
Dein BETREFF ist nicht sehr aussagekraeftig. hier wandert jeder thread ins ARCHIV um Usern bei probs behilflich zu sein. kein mensch wird nach "Strich durch die Rechnung" suchen.
loesungsvorschlag: hast Du schon an SUCHEN (nach 0) ERSETZEN (durch 1) gedacht.
gruss thomas
Anzeige
AW: Strich durch die Rechnung :-)
Dr.
Das bringt ihm aber im weiteren nix. ;-)
Blöde Antwort
06.09.2004 22:40:34
...
Oder Antworte oder Frage Mami.
AW: Strich durch die Rechnung :-)
ypsilon
hi Sebastian
Cells(2) = Left(Cells(1), 1) & Mid(Cells(1), 2, 4) + 1 & Right(Cells(1), 2)
cu Micha
Anzeige
AW: Strich durch die Rechnung :-)
Ingo
Wenn die Werte im Bereich A1:A6 stehen:

Sub erhöhen()
Dim i As Integer
For i = 1 To 6
Cells(i, 1) = Left(Cells(i, 1), Len(Cells(i, 1)) - 1) & Right(Cells(i, 1), 1) + 1
Next i
End Sub

AW: Strich durch die Rechnung :-)
yps
hi Ingo,
sieh dir die aufgabe noch mal ;-)
cu Micha
Anzeige
AW: Strich durch die Rechnung :-)
Ingo
Hast recht, ich überschreibe statt zu kopieren
mfG
Ingo christiansen
AW: Strich durch die Rechnung :-)
yps
hi Ingo
das wäre dann ein anpassungsproblem
aber er möchte nicht die letzte zahl hochzählen sondern die in der mitte !
R4950_1
R4951_1
cu Micha
AW: Strich durch die Rechnung :-)
Ingo
Man sollte doch genauer hinsehen beim Lesen.
For i = 1 To 6
Cells(i, 2) = Left(Cells(i, 1), InStr(Cells(i, 1), "_") - 2) & Mid(Cells(i, 1), _
InStr(Cells(i, 1), "_") - 1, 1) + 1 & _
Right(Cells(i, 1), Len(Cells(i, 1)) - InStr(Cells(i, 1), "_") + 1)
Next i
mfG
Ingo Christiansen
Anzeige
AW: Strich durch die Rechnung :-)
yps
hi Ingo,
wenn der string tatsächlich immer so aussieht wie beschrieben
dann hätte ich das so gemacht:
For i = 1 To 6
Cells(i, 2) = Left(Cells(i, 1), 1) & Mid(Cells(i, 1), 2, 4) + 1 & Right(Cells(i, 1), 2)
Next i
wenn es ein wenig flexibler sein muss:
bei solchen langen zusammensetzungen verliert man leicht den überblick (liegt vieleicht auch an meinem alter ;-)(ohne fehlerbehandlung)
For zeile = 1 To 6
For i = 1 To Len(Cells(1))
x = Val(Mid(Cells(zeile, 1), i)): If x 0 Then Exit For
Next i
w = Left(Cells(zeile, 1), InStr(Cells(zeile, 1), x) - 1)
z = Right(Cells(zeile, 1), Len(Cells(zeile, 1)) - Len(w) - Len(x))
Cells(zeile, 2) = w & x + 1 & z
Next zeile
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