Zellenbezüge im Makro nach Einfügen von Zeilen

• Zellenbezüge im Makro nach Einfügen von Zeilen von Christian vom 04.01.2007 08:55:20
• AW: Zellenbezüge im Makro nach Einfügen von Zeilen - von chris b am 04.01.2007 09:30:20
• AW: Zellenbezüge im Makro nach Einfügen von Zeilen - von chris b am 04.01.2007 09:35:28
• AW: Zellenbezüge im Makro nach Einfügen von Zeilen - von Luschi am 04.01.2007 09:39:01
  • AW: Zellenbezüge im Makro nach Einfügen von Zeilen - von Christian am 04.01.2007 09:50:03
    • wenn geil dann zu - von geschlossen am 04.01.2007 10:37:13

Betrifft: Zellenbezüge im Makro nach Einfügen von Zeilen
von: Christian

Geschrieben am: 04.01.2007 08:55:20
Hallo,
mich nervt es schon immer, dass viele meiner Makros nicht die Zellenbezüge anpassen, wenn beispielsweise Zeilen eingefügt werden.
Kann man dies nicht irgendwie umgehen, z.B. durch Definieren von Namen und im Makro die Zelle nicht mit "H58" oder cells(x,y) ansprechen?
MfG
Christian
[CODE]

Sub finde_UK_Pos3()
Range("H58").GoalSeek Goal:=Cells(58, 11).Value, ChangingCell:=Range("F50")
End Sub

Betrifft: AW: Zellenbezüge im Makro nach Einfügen von Zeilen
von: chris b
Geschrieben am: 04.01.2007 09:30:20
Ja geht.
Gebe der Zelle einfach einen Namen.
Diese zelle kannst du dann ansprechen
Option Explicit

Sub neu()
Range("deinvergebenername").Value = "test"
End Sub

gruß Chris

Betrifft: AW: Zellenbezüge im Makro nach Einfügen von Zeilen
von: chris b

Geschrieben am: 04.01.2007 09:35:28
Du kannst übrigens auch die Column und row von dieser Zelle herausbekommen.
Und zwar so:
Option Explicit

Sub wowas()
Dim cbr As Integer
Dim cbc As Integer
cbr = Range("test").Row
cbc = Range("test").Column
End Sub

gruß Chris

Betrifft: AW: Zellenbezüge im Makro nach Einfügen von Zeilen
von: Luschi

Geschrieben am: 04.01.2007 09:39:01
Hallo Christian,
so sollte es klappen:

Sub finde_UK_Pos3()
''Zelle H58 den Namen UK_Pos3
''Zelle F50 den Namen UK_Pos3x
Dim wb As Workbook, ws As Worksheet, _
rg1 As Range, rg2 As Range, _
xRow As Long
Set wb = ThisWorkbook
Set rg1 = wb.Names("UK_Pos3").RefersToRange
Set ws = wb.Worksheets(rg1.Parent.Name)
xRow = rg1.Row
Set rg2 = ThisWorkbook.Names("UK_Pos3x").RefersToRange
rg1.GoalSeek Goal:=ws.Cells(xRow, 11).Value, ChangingCell:=rg2
Set rg1 = Nothing
Set rg2 = Nothing
Set ws = Nothing
Set wb = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Betrifft: AW: Zellenbezüge im Makro nach Einfügen von Zeilen
von: Christian
Geschrieben am: 04.01.2007 09:50:03
Jo, geil das klappt !
Vielen dank!

Betrifft: wenn geil dann zu
von: geschlossen
Geschrieben am: 04.01.2007 10:37:13

Excel-Beispiele zum Thema "Zellenbezüge im Makro nach Einfügen von Zeilen"
Zeilenhöhe in cm festlegen	Summe gefilterter Zeilen
Zeilenumbruch	Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden	Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden	Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen	Zellinhalte zeilenweise sortieren