Zellbezüge um bestimmten Wert verschieben

[Käpt'n Blaubär]

Hallo,

ok, ... wir sprechen nicht die gleiche Sprache. Darum ist hier Schluß für mich.

Übrigens: in den Foren ist allgemein das Du die übliche Anredeform.
Für Dein Vorhaben wünsche ich Dir gutes Gelingen.

[hansla]

@Käpt'n Blaubär: Schade. Aber es ist tatsächlich wohl besser nicht mehr zu schreiben anstatt sinnlose Kommentare zu verfassen, die nichts mit dem Thema zu tun haben. Und verzeih bitte dass ich dich gesiezt habe. Ich bin nur stark gegen die Verrohung der Umgangsformen in Foren und hatte gehofft auf sachlicher Ebene weiterdiskutieren zu können.



Hier hatte jemand offensichtlich ein ähnliches Problem:
https://stackoverflow.com/questions/2861...work-sheet
Leider habe ich die Lösung noch nicht ganz verstanden.

[Kuwer]

Hallo,

per VBA könnte es so gehen:

Sub aaa()

  Dim lngCol As Long, lngRow As Long

  Dim rngB As Range, rngZ As Range

  Dim varF As Variant

  lngCol = 3  'Versatz Spalten

  lngRow = 5  'Versatz Zeilen

  Set rngB = Range("A1").CurrentRegion  'Bereich festlegen

  For Each rngZ In rngB

    If rngZ.HasFormula Then

      varF = Split(rngZ.Formula, "!")

      If UBound(varF) = 1 Then

        varF(1) = Range(varF(1)).Offset(lngRow, lngCol).Address(True, True)

        rngZ.Offset(0, 1).Formula = Join(varF, "!")

      End If

    End If

  Next rngZ

End Sub

Gruß Uwe

[hansla]

Hallo,

per VBA könnte es so gehen:

Sub aaa()

  Dim lngCol As Long, lngRow As Long

  Dim rngB As Range, rngZ As Range

  Dim varF As Variant

  lngCol = 3  'Versatz Spalten

  lngRow = 5  'Versatz Zeilen

  Set rngB = Range("A1").CurrentRegion  'Bereich festlegen

  For Each rngZ In rngB

    If rngZ.HasFormula Then

      varF = Split(rngZ.Formula, "!")

      If UBound(varF) = 1 Then

        varF(1) = Range(varF(1)).Offset(lngRow, lngCol).Address(True, True)

        rngZ.Offset(0, 1).Formula = Join(varF, "!")

      End If

    End If

  Next rngZ

End Sub

Gruß Uwe

Vielen Dank!
Das macht genau was ich gesucht habe!

Set rngB = Range("A1").CurrentRegion  'Bereich festlegen
habe ich noch durch Set rngB = Selection ersetzt.

Ist es möglich dass das Makro die ursprüngliche Zelle mit dem Zellverweis direkt überschreibt statt das Ganze rechts davon einzufügen?

Nochmals vielen Dank für die Hilfe!

[Kuwer]

Hallo,

Ist es möglich dass das Makro die ursprüngliche Zelle mit dem Zellverweis direkt überschreibt statt das Ganze rechts davon einzufügen?

ja sicher. In dieser Zeile wird die Formel zurückgeschrieben:

rngZ.Offset(0, 1).Formula = Join(varF, "!")

Wenn Du die rote 1 durch 0 (Null) ersetzt, wird in dieselbe Zelle zurückgeschrieben.

Gruß Uwe

[hansla]

Hallo,


ja sicher. In dieser Zeile wird die Formel zurückgeschrieben:

rngZ.Offset(0, 1).Formula = Join(varF, "!")

Wenn Du die rote 1 durch 0 (Null) ersetzt, wird in dieselbe Zelle zurückgeschrieben.

Gruß Uwe

Perfekt! Jetzt ist es genau das was ich gesucht habe!

Sub aaa()
  Dim lngCol As Long, lngRow As Long
  Dim rngB As Range, rngZ As Range
  Dim varF As Variant
  lngCol = 0  'Versatz Spalten
  lngRow = 5  'Versatz Zeilen
  Set rngB = Selection
  For Each rngZ In rngB
    If rngZ.HasFormula Then
      varF = Split(rngZ.Formula, "!")
      If UBound(varF) = 1 Then
        varF(1) = Range(varF(1)).Offset(lngRow, lngCol).Address(True, True)
        rngZ.Offset(0, 0).Formula = Join(varF, "!")
      End If
    End If
  Next rngZ
End Sub



Vielen Dank nochmal! :)

[Jockel]

Hallo, nur zur Info..: http://www.ms-office-forum.net/forum/sho...p?t=351567