Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zeile ermitteln - nebenstehende Spalten mar

letzte Zeile ermitteln - nebenstehende Spalten mar
02.03.2009 10:03:42
Erwin
Hallo Spezialisten,
ich habe eine Tabelle, in der immer in Spalte F unterschiedlich viele Zeilen gefüllt sind.
Spalte G + H sind leer und müssen durch Bearbeiter abgearbeitet werden.
Ich möchte nun Spalte G + H mit einer Farbe (.ColorIndex = 36) "verschönern", damit die User genau wissen, wo sie befüllen dürfen; und zwar von Zeile 9 bis zur letzten ermittelten Zeile der Spalte F, wobei Spalte F letztendlich nicht eingefärbt werden soll.
Wer kann bitte hlefen?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte Zeile ermitteln - nebenstehende Spalten mar
02.03.2009 10:16:23
Hajo_Zi
Hallo Erwin,
Format, bedingte Formatierung, Formel ist, =F9"", Format auswählen

AW: letzte Zeile ermitteln - nebenstehende Spalten mar
02.03.2009 10:17:08
Erich
Hallo Erwin,
probier mal diese Prozedur (kommt in den Code der Tabelle, auf die es wirken soll): 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
If Not Intersect(Target, Range("F9:F" & Rows.Count)) Is Nothing Then
lngZ = Cells(Rows.Count, "F").End(xlUp).Row
If lngZ >= 9 Then Range("G9:H" & lngZ).Interior.ColorIndex = 36
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Färben neben gefüllten Zellen
02.03.2009 10:58:21
Erich
Hi Erwin und Uwe,
dank Uwe hab ich jetzt auch noch das Entfärben eingebaut - wenn Zeilen von F geleert werden.
Hier die neue Version: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngU As Long, lngZ As Long
If Not Intersect(Target, Range("F9:F" & Rows.Count)) Is Nothing Then
lngU = Me.UsedRange.Row + Me.UsedRange.Rows.Count ' erste unbenutzte Zeile
lngZ = Cells(lngU, "F").End(xlUp).Row             ' letzte Zeile  Spalte F
If lngZ >= 9 Then Range("G9:H" & lngZ).Interior.ColorIndex = 36 ' färben
Range("G" & Application.Max(9, lngZ + 1) & ":H" & lngU). _
Interior.ColorIndex = xlNone                          ' Rest ohne Farbe
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Korrektur
02.03.2009 11:17:11
Erich
Hi zusammen,
obwohl Erwin sich schon entschieden hat, melde ich mich noch einmal.
Damit kein Schrott unkorrigiert im Archiv rumsteht, würde ich eigentlich meine beiden Beiträge zurücknehmen.
Da das nicht geht, hier meine Korrektur: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZ As Long
If Not Intersect(Target, Range("F9:F" & Rows.Count)) Is Nothing Then
If IsEmpty(Cells(Rows.Count, "F")) Then
lngZ = Cells(Rows.Count, "F").End(xlUp).Row       ' letzte Zeile Spalte F
Else
lngZ = Rows.Count
End If
If lngZ >= 9 Then Range("G9:H" & lngZ).Interior.ColorIndex = 36     ' färben
If lngZ

Rückmeldung brauchts nicht mehr! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: letzte Zeile ermitteln - nebenstehende Spalten mar
02.03.2009 10:30:48
UweD
Hallo
in ein Modul:


Sub färben()
    On Error GoTo Fehler
    Dim SP%, LR&
    SP = 6 'Spalte F
    ActiveSheet.Columns("F:H").Interior.Pattern = xlNone
    LR = ActiveSheet.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
    Application.ScreenUpdating = False
    With ActiveSheet.Range("G9:H" & LR).Interior
        .Pattern = xlSolid
        .ColorIndex = 36
    End With
    Err.Clear
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub


Gruß UweD
Anzeige
super - danke
02.03.2009 11:08:09
Erwin
Hallo Ihr DREI,
vielen herzlichen Dank für eure Mühe;
die Lösung von Uwe passt für meine Zwecke am besten, weil ich danach ein weiteres Makro dranhängen kann.
Grüße Erwin

320 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Anzeige
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
letzte benutzte Zeile eines Namens-Bereichs
Klaus

Hallo Forum,
wie bringe ich die letzte benutzte Zeile eines benannten Bereichs in eine Variable?
Beispiel:
Bereichsname = Testfeld
Name Testfeld besteht aus Text, Formeln und Datümern
Formeln dürfen NICHT gefunden werden
Mit
LAST = Cells.Find(What:="*", After:=[A1],...
23.11.2008 19:43:00
Thread-ID: 1027146
11 Beiträge
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
Letzte Leere Zelle in Spalte C
Wacker

Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
Bin bereits hier bei Zelle C4500.
Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
Und dann benötige ich noch für diverse Berechnungen, die Forme...
07.12.2008 22:23:00
Thread-ID: 1030940
9 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige

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
9
2
3
1
4
2
10
2
8
4
7
7
4
2
1
5
6
4
5
8
3
3
4
6
2