Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
28.04.2024 13:43:14
Uhrzeit-Angabe
28.04.2024 11:30:20
Pivot Balken und Kreisdiagram Darstellung /Beschriftung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
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
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur bis Letzte Zeile Formatieren

Nur bis Letzte Zeile Formatieren
23.02.2022 15:30:37
oraculix
Hallo Ihr Profis!
Ich möchte in meiner Arbeitsmappe etwas Platzsparen und unnötige Formatierungen vermeiden.
Wie muss der Code lauten das nur bis zur letzten beschrieben Zelle Formatieren angewendet wird
'Schrift Farbe und Hintergrund einstellen.
With Range("A2:C5000") 'das hier sollte so irgendwie lola letzte oder so sein
.Interior.Color = vbBlack
.Font.Color = RGB(255, 192, 0)
End With
Gruß
Oraculix

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur bis Letzte Zeile Formatieren
23.02.2022 15:40:25
UweD
Hallo

LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A
With Range("A2:C" & LR)
.Interior.Color = vbBlack
.Font.Color = RGB(255, 192, 0)
End With
LG UweD
AW: Nur bis Letzte Zeile Formatieren
23.02.2022 15:52:34
oraculix
Servus UweD!
Danke für rasche Antwort.
Aber leider kommt ein Fehler Variable nicht definiert!
bei Zeile 1
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A
LR wird markiert.
Gruß
Oraculix
AW: Nur bis Letzte Zeile Formatieren
23.02.2022 16:11:56
UweD
Hallo
Dann musst du dort, wo deine anderen Variablen Dimensioniert wurden, die Variable ergänzen (Meist ganz oben)
Also
Dim LR as Long
LG UweD
Anzeige
AW: Nur bis Letzte Zeile Formatieren
23.02.2022 16:32:26
oraculix
Vielen Dank genau das war es!
Wenn ich jetzt zb. Schrift Größe nur bis zur letzten Zeile ändern möchte?
wie muss ich das dann ändern? Das habe ich jetzt Original
'Schrift größe einstellen
Columns("A:B").Font.Size = 12
Stimmt das so? Das würde ich so Ändern
Dim LR as Long
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte A
With Range("A2:B" & LR)
.Font.Size = 12
End With
Gruß
Oraculix
probier es doch einfach mal aus ...
24.02.2022 08:17:17
Pierre
... dein PC explodiert schon nicht ;-)

304 Forumthreads zu ähnlichen Themen

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
Anzeige
Spalten ausblenden von - bis
-

Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt...
20.02.2009 11:23:00
Thread-ID: 1052397
6 Beiträge
Spalte bis zur letzten Zeile mit akt. Datum füllen
Stefan

Hallo,
ich habe eine Tabelle mit mehreren gefüllten Spalten (z.B. A, C, E, F) und leeren Spalten dazwischen.
Nun möchte ich Spalte I mit dem aktuellen Datum füllen, und zwar bis zur letzten gefüllten Zeile einer Spalte mit Inhalt.
Wie gehe ich da am besten vor?
Die gefüllten Spa...
03.03.2009 13:35:30
Thread-ID: 1055961
4 Beiträge
Anzeige
FOrmeln einfügen bis zur letzten Zelle
Tobias

Hallo zusammen,
derzeit füge ich folgende Formeln mit einem Makro ein:
Private Sub Formeln_einfügen2() Range("j2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,IF(RC[-2]-RC[-3]>=75,""ja"",""nein""),"""")" Range("j2").Select Selection.AutoFill Destination:=Range("j2:j20000"), Ty...
01.05.2009 16:36:03
Thread-ID: 1072338
3 Beiträge
Makro: Wort ersetzen bis letzte Zeile von...
Julia

Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben() Sheets("Datenbasis").Select ActiveWindow.SmallScroll ToRight:=-3 Columns("I:I").Select Selection.Replace What:="Fixed", Repl...
30.06.2009 11:17:32
Thread-ID: 1085300
3 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
Formel auf anderes Blatt mit fortlaufender Spalte
Fred

Man das hört sich wieder mal schlimm an, oder ?
Ich möchte eine Formel aus Zelle A1-Blatt1 in Zelle A1-Blatt2 kopieren.
In A1-Blatt1 steht die Formel: ='Meine Daten'!C13-'Meine Daten'!C13-'Meine Daten'!C13
Nun soll diese Formel in Zelle A1-Blatt2 so kopiert werden dass die Spalte u...
18.12.2009 12:21:34
Thread-ID: 1124855
6 Beiträge
Formel bis Datei-Ende kopieren
Gerhard

Hallo Zusammen,
ich gebe eine Formel in ein Feld ein (noch kein Problem). Nun möchte ich diese Formel in die restlichen
Felder der Spalte kopieren (Anzahl Datensätze ist immer unterschiedlich). Markiere ich nun die Spalte und "sage" einfügen, kopiert er die Formel bis zum Datensatz 6500...
30.03.2010 08:56:46
Thread-ID: 1149267
10 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
2
7
5
3
3
2
2
5
5
9
5
4
13
3
3
4
1
3
8
10
5
4
8
3
7