Bestimmte Zeilen Markieren/Letzte Zelle anspringen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo ABO,
zur ersten Frage Vorschlag ohne Makro aber mit Hyperlink:

Tabelle1

	E	F	G	H	I
12	12	13	14
13	13	14	15
14	14	15	16
15	15	16	17
16	16	17	18
17	17	18	19		Auswahl
18

Formeln der Tabelle

I17 : {=WENN(ISTFEHLER(HYPERLINK("#"&"Tabelle1!"&ADRESSE(MIN(WENN(B3:G100<>"";ZEILE(3:100)));MIN(WENN(B3:G100<>"";SPALTE(B3:G3)));4)&":"&ADRESSE(MAX(WENN(B3:G100<>"";ZEILE(3:100)));MAX(WENN(B3:G100<>"";SPALTE(B3:G3)));4);"Auswahl"));"kein Eintrag";HYPERLINK("#"&"Tabelle1!"&ADRESSE(MIN(WENN(B3:G100<>"";ZEILE(3:100)));MIN(WENN(B3:G100<>"";SPALTE(B3:G3)));4)&":"&ADRESSE(MAX(WENN(B3:G100<>"";ZEILE(3:100)));MAX(WENN(B3:G100<>"";SPALTE(B3:G3)));4);"Auswahl"))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Bei der 2. Frage muss ich passen, keine Ahnung von VBA, lass es noch offen.
MfG Christian

Hallo ABO,
hier zwei Makros für deine Problem. Ich hoffe ich hab die Slelktion im Bereich B3:G100 richtig bzw. nicht zu kompliziert verstanden.
Gruss
Franz Sub NaechsteLeereinSpalteA() Dim wks As Worksheet Set wks = ActiveSheet With wks If .Cells(.Rows.Count, 1).End(xlUp).Row = 1 Then .Cells(1, 1).Select Else .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Select End If End With End Sub Sub SelektiereinB3G100() 'Selektiert im Bereich alle Zeilen in denen mindestens eine Zelle ausgefüllt ist Dim wks As Worksheet, Bereich As Range, Selektieren As Range Dim rngZeile As Range, Zeile As Long Set wks = ActiveSheet Set Bereich = wks.Range("B3:G100") With wks For Zeile = Bereich.Row To Bereich.Row + Bereich.Rows.Count - 1 'Zellbereich in Zeile Set rngZeile = .Range(.Cells(Zeile, Bereich.Column), _ .Cells(Zeile, Bereich.Column + Bereich.Columns.Count - 1)) 'Prüfen ob alle Zellen im Zellbereich leer sind If Application.WorksheetFunction.CountBlank(rngZeile) < Bereich.Columns.Count Then If Selektieren Is Nothing Then Set Selektieren = rngZeile Else Set Selektieren = Application.Union(Selektieren, rngZeile) End If End If Next If Not Selektieren Is Nothing Then Selektieren.Select End With End Sub

Sub SelektiereinB3G100() 'Selektiert im Bereich alle Zeilen in denen mindestens eine Zelle ausgefüllt ist Dim wks As Worksheet, Bereich As Range, Selektieren As Range Dim rngZeile As Range, Zeile As Long Set wks = ActiveSheet Set Bereich = wks.Range("B3:G100") With wks For Zeile = Bereich.Row To Bereich.Row + Bereich.Rows.Count - 1 'Zellbereich in Zeile Set rngZeile = .Range(.Cells(Zeile, Bereich.Column), _ .Cells(Zeile, Bereich.Column + Bereich.Columns.Count - 1)) 'Prüfen ob alle Zellen im Zellbereich leer sind If Application.WorksheetFunction.CountBlank(rngZeile)

Sub SelektiereinBDG3bis100() 'Selektiert in Spalten B, C und G Zeilen 3 bis 100 alle Zeilen in denen mindestens eine Zelle ausgefüllt ist Dim wks As Worksheet, Selektieren As Range Dim rngZeile As Range, Zeile As Long Set wks = ActiveSheet With wks For Zeile = 3 To 100 'Zellbereich in Zeile Set rngZeile = Application.Union(.Cells(Zeile, 2), .Cells(Zeile, 4), .Cells(Zeile, 7)) 'Prüfen ob alle Zellen im Zellbereich leer sind If Application.WorksheetFunction.CountA(rngZeile) > 0 Then If Selektieren Is Nothing Then Set Selektieren = rngZeile Else Set Selektieren = Application.Union(Selektieren, rngZeile) End If End If Next If Not Selektieren Is Nothing Then Selektieren.Select End With End Sub

Beliebteste Forumthreads (12 Monate)

Bestimmte Zeilen Markieren/Letzte Zelle anspringen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Zeilen Markieren/Letzte Zelle anspringen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread