Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Rahmen finden

Forumthread: Zellen mit Rahmen finden

Zellen mit Rahmen finden
07.11.2003 10:14:25
Laureate
Hallo!

Ich möchte per Makro die ersten beiden Zellen der Spalte A finden, die einen "Rahmen" unten haben. Und mit den 2 Zeilen, in denen diese Zellen sind dann weiter rechnen.
Hat jemand eine Idee, wie ich das anstellen könnte?

Besten Dank schonmal,

Laureate
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Rahmen finden
07.11.2003 11:40:01
ChrisL
Hi Laureate

Füge nachstehende Funktionen in ein Standardmodul ein. Mit der Tabellenfunktion =ZEILERAHMEN1() bzw. =ZEILERAHMEN2() findest du die Zeilennummer raus. Anschliessend kannst du einfach mit der Tabellenfunktion INDEX weiter rechnen.

Option Explicit


Function ZeileRahmen1() As Long
Dim iZeile As Long
Application.Volatile
ZeileRahmen1 = 0
With ActiveSheet
For iZeile = 1 To .UsedRange.Rows.Count
If .Cells(iZeile, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous Then
ZeileRahmen1 = iZeile
Exit Function
End If
Next iZeile
End With
End Function




Function ZeileRahmen2() As Long
Dim iZeile As Long
Dim iCounter As Integer
Application.Volatile
ZeileRahmen2 = 0
iCounter = 0
With ActiveSheet
For iZeile = 1 To .UsedRange.Rows.Count
If .Cells(iZeile, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous Then
iCounter = iCounter + 1
If iCounter = 2 Then
ZeileRahmen2 = iZeile
Exit Function
End If
End If
Next iZeile
End With
End Function


Gruss
Chris
Anzeige
;

Forumthreads zu verwandten Themen

Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Zelle mit bestimmtem Inhalt finden
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich in ein Dialogfeld ein beliebiges Wort eingebe und Excel dann in einer ganz bestimmten Spalte nach diesem Wort sucht. Die erste Zelle, in der das Wort gefunden wurde sollte dann aktiviert werden.
Ich würde mich freuen, wenn mir jemand weiterhe...
11.02.2009 18:44:00
Thread-ID: 1049734
6 Beiträge
Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
Till

Hallo Leute,
hab mal wieder ein (hoffentlich nicht zu kompliziertes) Problem.
In einer Datei gibt es Spalten mit Zahlen. D.h. hier kommen wirklich nur Zahlen vor, und interessieren einfach nicht.
Welches Makro kann man jetzt ablaufen lassen, um die Zellen zu finden wo "NUR Zahlen"...
26.02.2009 16:05:37
Thread-ID: 1054444
6 Beiträge
Letzte Zelle mit IST-Kosten-Eintrag finden
Bernd

Hallo Freaks,
ich habe eine Tabelle mit Budget- und IST-Kosten-Spalten für das Geschäftsjahr. Ich suche eine Formel/VBA-Code, der mir die Monatsziffer ( 1 - 12 ) ausgibt, in der der letzte IST-Wert steht (Im Bsp. die 7).

Und hier die Bsp.Datei dazu:
https://www.herber.de/bbs/us...
06.05.2009 11:31:03
Thread-ID: 1073295
7 Beiträge
Anzeige
Letzte Zelle mit IST-Kosten-Eintrag finden
Bernd

Hallo Freaks,
ich habe eine Tabelle mit Budget- und IST-Kosten-Spalten für das Geschäftsjahr. Ich suche eine Formel/VBA-Code, der mir die Monatsziffer ( 1 - 12 ) ausgibt, in der der letzte IST-Wert steht (Im Bsp. die 7).

Und hier die Bsp.Datei dazu:
https://www.herber.de/bbs/us...
06.05.2009 12:06:44
Thread-ID: 1073310
2 Beiträge
letzte Zeile mit bestimmten wert finden
steffen

Hallo Ex(cel)perten,
Ich habe eine Tablle mit über 30.000 Zeilen.
Wie stelle ich es mittels VBA an, die letzte Zeile eines Wertes zu bestimmen, wenn in einer Spalte dieser Wert mehrmals vorkommt?
Gibt es eine Funktion ohne eine zeitaufwendige Schleife nutzen zu müssen?
Gruß Stef...
10.07.2009 10:42:10
Thread-ID: 1087617
3 Beiträge
Anzeige
Zellen mit beliebigem Inhalt finden
markus

Hallo,
ich habe bisher leider ohne erfolg nach Lösungen für mein Problem gesucht. Ich hoffe, dass Ihr mir weiter helfen könnt.
Folgende Problem liegt vor:
Ich habe ein Tabellenblatt mit vielen Zahlen in den Jeweiligen Zellen.
Ich suche jetzt in dieser Tabelle alle Zellen die ein...
09.08.2009 11:06:47
Thread-ID: 1094473
8 Beiträge
Letzte Zelle mit Wert finden
Lissa

Hallo,
Ich möchte in Spalte A in allen Zellen die Werte eintragen, aber in leeren Zellen die Formeln stehen lassen.
Es muss nur die letzte Zelle nichtleere Zelle gefunden werden und ab A2 markiert werden.
Ich habe nur Codes, mit denen der letzte Formeleintrag gefunden wird.
Viel...
22.11.2009 16:11:40
Thread-ID: 1119176
4 Beiträge
Anzeige
Letzte Zelle mit Eintrag finden
Peter

Liebes Forum
Mit nachfolgender Codezeile hole ich mir die letzte Zeile des USEDRANGE. Nun werden scheinbar auch Zellen berücksichtigt, die mit irgendwelchen Formaten belegt sind.
Gibt es eine andere Möglichkeit, wirklich die letzte Zelle mit Eintrag zu finden? Leider kann sich die Abfra...
10.09.2010 15:15:35
Thread-ID: 1176912
5 Beiträge
Zelle mit Datum (Heute) finden.
Micha

Hallo liebe Spezialisten,
ich benutze folgenden Code um die Zelle mit dem heutigen Datum zu finden:
Sub Grafik1_Klicken() Dim rg As Range Set rg = ActiveSheet.Columns("C:C").Find(Date, , xlValues) If Not rg Is Nothing Then rg.Activate Else MsgBox "Datum " & Date & " leider nicht...
08.03.2011 10:22:39
Thread-ID: 1204706
7 Beiträge
1. Zelle mit Wert finden und ausgeben
Peter

Hallo Excelspezialisten,
ich habe jeweils eine Reihe mit Werten und möchte jeweils den 1. gefunden Wert von rechts ausgeben. Habe es mit Vergleich und Array-Formeln versucht, funzt aber nicht, bekomme nur Fehler.
Danke für jede Hilfe.
Grüße Peter
https://www.herber.de/bbs/user/7...
30.08.2011 14:40:47
Thread-ID: 1228084
3 Beiträge
Anzeige
letzte Zelle mit Inhalt finden
Karsten

Hallo,
ich möchte mit diesem Code die letzte Zelle mit Inhalt in ActiveCell.Column finden. Manchmal werden auch leere Zellen gefunden. Anscheinend welche schon mal Inhalt hatten. Kann mir den Code nochmal jemand berichtigen?
Cells(2000, ActiveCell.Column).End(xlUp).Select
Danke
...
11.12.2011 22:57:07
Thread-ID: 1241596
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige