Herbers Excel-Forum - das Archiv

Zellenbezüge im Makro nach Einfügen von Zeilen

Bild

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

Bild

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
Bild

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
Bild

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
Bild

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!
Bild

Betrifft: wenn geil dann zu
von: geschlossen
Geschrieben am: 04.01.2007 10:37:13
 Bild
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