Microsoft Excel

Herbers Excel/VBA-Archiv

Strich durch die Rechnung :-)

Betrifft: Strich durch die Rechnung :-) von: Sebastian
Geschrieben am: 06.09.2004 16:09:47

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

  


Betrifft: AW: Strich durch die Rechnung :-) von: th.heinrich
Geschrieben am: 06.09.2004 16:22:03

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


  


Betrifft: AW: Strich durch die Rechnung :-) von: Dr.
Geschrieben am: 06.09.2004 16:24:50

Das bringt ihm aber im weiteren nix. ;-)


  


Betrifft: Blöde Antwort von: ...
Geschrieben am: 06.09.2004 22:40:34

Oder Antworte oder Frage Mami.


  


Betrifft: AW: Strich durch die Rechnung :-) von: ypsilon
Geschrieben am: 06.09.2004 16:25:33

hi Sebastian
Cells(2) = Left(Cells(1), 1) & Mid(Cells(1), 2, 4) + 1 & Right(Cells(1), 2)
cu Micha


  


Betrifft: AW: Strich durch die Rechnung :-) von: Ingo
Geschrieben am: 06.09.2004 16:34:48

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



  


Betrifft: AW: Strich durch die Rechnung :-) von: yps
Geschrieben am: 06.09.2004 16:47:05

hi Ingo,
sieh dir die aufgabe noch mal ;-)
cu Micha


  


Betrifft: AW: Strich durch die Rechnung :-) von: Ingo
Geschrieben am: 06.09.2004 18:37:08

Hast recht, ich überschreibe statt zu kopieren
mfG
Ingo christiansen


  


Betrifft: AW: Strich durch die Rechnung :-) von: yps
Geschrieben am: 06.09.2004 18:53:00

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


  


Betrifft: AW: Strich durch die Rechnung :-) von: Ingo
Geschrieben am: 06.09.2004 19:39:49

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


  


Betrifft: AW: Strich durch die Rechnung :-) von: yps
Geschrieben am: 06.09.2004 20:55:47

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


 

Beiträge aus den Excel-Beispielen zum Thema "Strich durch die Rechnung :-)"