Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bestimmte Zelle suchen und auswählen

bestimmte Zelle suchen und auswählen
09.05.2006 09:55:51
Andreas
Hallo,
ich muss in einem Tabellenblatt auf eine bestimmte Zelle zugreifen. Und zwar in der 4.Zeile auf die 9.letzte Zelle. Also hab ich mir gedacht in der 4. Zeile nach der letzten beschriebenen Spalte zu suchen und von da aus 9 Zellen nach vorn zu gehen. Das muss so gelöst werden, weil sich das Tabellenblatt spaltenmäßig immer wieder ändert. Ich hab mir auch etwas einfallen lassen, aber das funktioniert nicht richtig. Ich weiß aber nicht genau, wo der Fehler steckt.

Sub Daten_Transfer()
Windows("Bericht.xls").Activate
Worksheets("Daten").Select
' letzte beschriebene Spalte finden und von da
' aus 9 Zellen nach vorn gehen
LetzteSpalte = ActiveWorkbook.Sheets("Daten").Cells(Cells.Columns.Count, 2).End(xlUp).Columns
ActiveWorkbook.Sheets("Daten").Range(LetzteSpalte - 9 & "4").Select
End Sub

Für einen produktiven Vorschlag bin ich dankbar.
Gruss
Andreas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zelle suchen und auswählen
09.05.2006 10:05:53
ANdreas
Hallo Andreas,
ich würds so machen:

Sub SelectMarko()
Dim c As Range
Set c = Cells(4, 256).End(xlToLeft)
If c.Column > 9 Then c.Offset(0, -9).Select
End Sub

Gruß
Andreas
Korrektur
09.05.2006 10:38:20
u_
Hallo,
es muss
If c.Column &gt 9 Then c.Offset(0, -8).Select
heißen.
c ist die letzte, c-1 die vorletzte, c-2 die drittletzte etc.
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: bestimmte Zelle suchen und auswählen
09.05.2006 10:06:30
Harald
Hi Andreas,
Lcol = ActiveWorkbook.Sheets("Daten").Cells(4, columns.count).end(xltoleft).column
LetzteSpalte = ActiveWorkbook.Sheets("Daten").Cells(4, Lcol -9).select
Gruss Harald
Anzeige
Vielen Dank - das funktioniert!
09.05.2006 10:41:04
Andreas
Danke, klappt super!
Gruss
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige