Clever-Excel-Forum

Normale Version: Zellbezüge um bestimmten Wert verschieben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
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.
@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.
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
(02.05.2018, 22:39)Kuwer schrieb: [ -> ]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!
Hallo,

(02.05.2018, 22:59)hansla schrieb: [ -> ]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. Wink

Gruß Uwe
(02.05.2018, 23:08)Kuwer schrieb: [ -> ]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. Wink

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! :)
Seiten: 1 2