Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1368to1372
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
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn...dann..."ganze Zeile kursiv markieren"

Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 15:41:19
Lisa
Hallo liebe Leute,
Möchte eine Überprüfung machen und bin auf der Suche nach dem VBA Makro dafür:
"Wenn in Zelle K2 ein Datum steht, dann markiere A2:Q2 in Calibri 11 kursiv".
Viele Grüße
Lisa

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

Betreff
Datum
Anwender
Anzeige
Warum MakroSuche? Aktion aufzeichnen und ...
30.06.2014 15:49:03
Luc:-?
…If … Then-Abfrage ergänzen, Lisa;
die paar Zeilen solltest du doch auch bei deinem Level hinbekommen… ;-)
Bspw so: If Range("K2").NumberFormat = "dd.mm.yyyy" Then …
Gruß Luc :-?

AW: Warum MakroSuche? Aktion aufzeichnen und ...
30.06.2014 16:15:56
Lisa
Hallo Luc,
das mit der Wenn-Abfrage hätte ich auch mit dem Rekorder noch hinbekommen. Problem ist eher die Zeilenformatierung ins Kursive.
Sub Makro4()
If Range("K2").NumberFormat = "dd.mm.yyyy" Then
Range("A2:Q2").Font.Italic = True
End If
End Sub
Funktioniert aber irgendwie nicht ganz.
Viele Grüße
Lisa

Anzeige
AW: Warum MakroSuche? Aktion aufzeichnen und ...
30.06.2014 16:36:02
Daniel
Hi
das Zahlenformat alleine Zu prüfen, ist keine gute Idee.
a) können auch leere Zellen ein Zahlenformat haben
b) kann man das Zahlenformat leicht ändern und dann passt der Code nicht mehr
c) hat man bei Zahlen- und Datumsformaten in VBA immer das Problem mit dem Wechselspiel der deutschen- und englischen Schreibweise.
im Prinzp sollte es reichen abzufragen, ob eine Zahl grösser 30.000 in der Zelle steht, das wird dann in den meisten Fällen ein Datum sein (wenn man mit Datumswerten vor 1982 arbeitet, muss man den Wert entsprechend kleiner ansetzen)
Gruß Daniel

Anzeige
AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:19:56
Daniel
Hi
da ein Datum für Excel eine Zahl ist, probiere folgendes:
wenn die Werte in K von hand eingegeben werden: 
If Worksheetfunction.count(Rang("K:K")) > 0 Then
With Range("K:K").SpecialCells(xlcelltypeconstants, 1)
With Intersect(.EntireRow, Range("A:Q").font
.Name = "Calibri"
.Size = 11
.Italic = True
End With
End with
end if
wenn die Werte durch Formeln erzeugt werden, ersetze in der SpecialCells-Funktion das "xlcelltypeconstants" durch "xlcelltypeformulas"
Gruß Daniel

AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:30:34
Claus
Ginge das denn mit bedingter Formatierung nicht viel einfacher?

Anzeige
AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:40:02
Lisa
Habs nun mit der bedingten Formatierung gelöst. Danke für den Tipp

AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:41:56
Claus
Bitte, und grade als du es gemacht hast habe ich es noch genauer beschrieben. Freut mich aber, dass es hilfreich war, danke fürs feedback.

AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:40:42
Daniel
theoretsich ja, aber du kannst mit der Bedingten Formatierung nur Formate ändern, die keinen Einfluss auf die automatische Zellgrösse haben.
Deswegen sind Schriftgrad und Schriftart bislang noch von der Bedingten Formatierung ausgeschlossen.
Ebenso kannst du nur eine Rahmendicke in der Bedingten Formatierung verwenden, weil dickere Rahmenlinien die Zellhöhe verändern.
über die Bedingte Formatierung kannst du von angesprochenen Formaten nur das Italic einstellen.
Gruß Daniel

Anzeige
AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:44:24
Claus
ah, interessant, danke für die Eräuterung. Na, jedenfalls schein es Lisa so gereicht zu haben und ich bin bissle schlauer geworden.

AW: Wenn...dann..."ganze Zeile kursiv markieren"
30.06.2014 16:40:48
Claus
Also die Bedingte Formatierung auf K2 machen, in der Formel aus K2 ... $K$2 machen und dann mit dem Formatübertragungspinsel auf A2:Q2 übertragen.

342 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 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
4
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5