Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile und Spalte von Zelle mit Name | Herbers Excel-Forum


Betrifft: Zeile und Spalte von Zelle mit Name von: Pietro
Geschrieben am: 23.01.2012 10:42:15

Hallo zusammen

Ich habe einer Zelle einen mit dem Namensmanager einen Namen vergeben. Wie kann ich mittels VBA die Spalte und die Zeile von dieser Zelle ermitteln?

Besten Dank.

Pietro

  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Josef Ehrensberger
Geschrieben am: 23.01.2012 10:45:49


Hallo Pietro,

wenn es sich nur um eine Zelle Handelt
Range("deinName").Row
'bzw.
Range("deinName").Column


« Gruß Sepp »



  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Pietro
Geschrieben am: 23.01.2012 11:11:30

Hallo Sepp

Besten Dank für die Antwort. Doch komme ich nicht weiter, es kommt eine Fehlermeldung.

Die Position der Zelle mit dem Namen "deinName" ist Aenderungen unterworfen (löschen/einfügen von Zeilen und Spalten). Von der Zelle "dein Name" benötige ich den Zellenname 2 Zeilen unterhalb und 3 Spalten rechts.

Besten Dank

Pietro


  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Josef Ehrensberger
Geschrieben am: 23.01.2012 11:21:22


Hallo Pietro,

ich liebe Aussagen wie "Doch komme ich nicht weiter, es kommt eine Fehlermeldung".

Welche Meldung?




« Gruß Sepp »



  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Pietro
Geschrieben am: 23.01.2012 11:28:36

Hallo Sepp

Sorry

Die Fehlermeldung lautet "Fehler beim Kompilieren - Unzulässige Verwendung einer Eigenschaft"

Es grüsst

Pietro


  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Josef Ehrensberger
Geschrieben am: 23.01.2012 11:35:25


Hallo Pietro,

dann zeig doch mal den gesamten Code.




« Gruß Sepp »



  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Pietro
Geschrieben am: 23.01.2012 14:34:11

Hallo Sepp

Musste noch was anderes erledigen.

Hier mein Code:

Sub Code()

Range(Sheets("Tabelle1").Range("Ergebnis"), ActiveCell.SpecialCells(xlLastCell)).Clear

Cells(103, 4).FormulaR1C1 = "=SUM(R[1]C:R[18]C)"

End Sub
Anmerkung: Die Zelle mit dem Namen "Ergebnis" ist zurzeit "A101"

1. Zeile:
ist: löscht alles inklusive Zeile mit Zelle mit Name "Ergebnis".
soll: löscht alles ohne Zeile mit Zelle mit Name "Ergebnis"

2. Zeile
Die Position ist abhängig von der Zelle mit dem Namen "Ergebnis";
2 Zeilen unterhalb und 3 Spalten rechts von dieser

Besten Dank

Pietro


  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Josef Ehrensberger
Geschrieben am: 23.01.2012 16:39:24


Hallo Pietro,

ganz schlau werde ich aus deiner Beschreibung nicht.

Sub Code()
  
  With Sheets("Tabelle1").Range("Ergebnis")
    .Offset(-.Row + 1, 0).Resize(.Row - 1, 1).Clear
    .Offset(2, 3).FormulaR1C1 = "=SUM(R[1]C:R[18]C)"
  End With
  
End Sub





« Gruß Sepp »



  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Pietro
Geschrieben am: 24.01.2012 00:20:54

Hallo Sepp

Besten Dank für deine Rückmeldung.

Dieser Code funktioniert einwandfrei.

Sub Code()
  With Sheets("Tabelle1").Range("Ergebnis")
     .Offset(2, 3).FormulaR1C1 = "=SUM(R[1]C:R[18]C)"
  End With
End Sub
Der Rest leider noch nicht. Mit dem Code
Sub Code()
Range(Sheets("Tabelle1").Range("Ergebnis"), ActiveCell.SpecialCells(xlLastCell)).Clear
End Sub

sollten alle Zeilen und Spalten unterhalb der Zeile mit der Zelle mit Namen "Ergebnis" gelöscht werden. Der Code löscht jedoch auch die Werte in der Zeile mit der Zelle mit Name "Eergebnis".

Ich hoffe, ich habe mein Problem nun verständlich beschrieben.

Es grüsst

Pietro


  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Reinhard
Geschrieben am: 24.01.2012 00:35:15

Hallo Pietro,

mit dem "funktionierenden" ersten Code trägst du unterhalb der benannten Zelle in eine Zelle eine Formel ein.
Anschließend willst du nun alle Zeilen unterhalb der benannten Zelle löschen?
Viel Logik kann ich da für mich nicht entdecken.

Gruß
Reinhard


  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Josef Ehrensberger
Geschrieben am: 24.01.2012 00:37:51


Hallo Pietro,

Sub Code()
  
  With Sheets("Tabelle1").Range("Ergebnis")
    .Offset(1, -.Column + 1).Resize(.Parent.Rows.Count - .Row, .Parent.Columns.Count).Clear
    .Offset(2, 3).FormulaR1C1 = "=SUM(R[1]C:R[18]C)"
  End With
  
End Sub






« Gruß Sepp »



  

Betrifft: AW: Zeile und Spalte von Zelle mit Name von: Pietro
Geschrieben am: 24.01.2012 00:48:45

Salü Sepp

Funktioniert einwandfrei. Besten Dank für deine Geduld.

Es grüsst

Pietro


Beiträge aus den Excel-Beispielen zum Thema "Zeile und Spalte von Zelle mit Name"