Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
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
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
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

Anzeige
AW: Strich durch die Rechnung :-)
yps
hi Ingo,
sieh dir die aufgabe noch mal ;-)
cu Micha
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige