Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

304 Forumthreads zu ähnlichen Themen

Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Anzeige
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
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
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
Zellen mit #NV finden und per Msg Box anzeigen
Maris

Hi Leute,
ich habe in einer rießen Datei in den Spalten J,K,L die per Formel auf einanderabgestimmt sind häufig das ergebnis #NV das leigt daran das vergessen wurde WErte in eine andere Zelle einzutragen. Kann man durch Massagebox den User dazu auffordern wenn im einen der 3 Spalten bis Zei...
27.08.2010 09:00:19
Thread-ID: 1174437
13 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
2
5
5
6
1
2
7
3
12
4
1
6
2
5
5
1
2
4
5
4
4
2
4
8