Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bedingte Formatierung?
zurück: Leerzeichen löschen klappt mit GLÄTTEN() nicht weiter: Rechnungsnummer Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Andi10
Gast


Verfasst am:
26. Nov 2004, 15:31
Rufname:

Bedingte Formatierung? - Bedingte Formatierung?

Nach oben
       

Hallo All, habe wieder mal ein problem, habe eine Tabelle wo ich eine Ranglieste Erstelle nun möchte ich das wenn ich auf Sortiere Drücke (hab ich mit Makro gemacht) das es mir genau die ersten 40 % in Fetter Schrift darstellt.Wenn es geht währe es auch noch gut das es in der Spalte A den Stern macht, natürlich auch die 40%. Siehe Beispiel.
Hoffe es kann mir jemand helfen!
Danke zum voraus


200 Kat A
 ABCDEFG
10Ausz.RgName VornameOrt / KlubHolz9er8er
11       
12*1Boss MarkusDiemtigen15877766
13*2Schmidiger AndreasMoosseedorf15797656
14XXXXXXXXXXXXXXXXXXXXX
15*4Braun PeterSteffisburg15536748
16*5Hehlen WalterZweisimmen15527560
17 6V.Allmen ChristianLauterbrunnen15386268
18 7Gr&uuml;nig HansrudolfWichtrach15196360
19XXXXXXXXXXXXXXXXXXXXX
20 9Bellwald JakobSpiez14765165
21 10Kirsch KurtAarburg14434360
22 11Weber WilliReichenbach14293863
23 12Wiedmer AlfredOlten13983850
 
Reinhard
Fortgeschrittener Einsteiger


Verfasst am:
26. Nov 2004, 18:59
Rufname:


AW: Bedingte Formatierung? - AW: Bedingte Formatierung?

Nach oben
       

Hallo Andi,

mit diesem Makro geht das:

Code:
Option Explicit

Sub zellen_formatieren()
Dim z As Integer
Dim zp As Integer
Dim s As Integer
z = Range("B65536").End(xlUp).Row
zp = (z - 2) * 0.4
Range("A2", "G" & zp).Font.Bold = True
For s = 3 To zp
    Cells(s, 1) = "*"
Next s
End Sub

_________________
Gruß Reinhard

Nur wer mit seinem Denken Grenzen
überschreitet, wird etwas bewegen.
Andi10
Gast


Verfasst am:
26. Nov 2004, 19:38
Rufname:

Bedingte Formatierung? - Bedingte Formatierung?

Nach oben
       

Hallo Reinhard, sorry aber kannst du mir noch sagen wie ich das genau mache? Habe bis her nur Makros gemacht mit aufzeichnen!

Danke im voraus

Andi
Andi10
Gast


Verfasst am:
26. Nov 2004, 19:46
Rufname:

Bedingte Formatierung? - Bedingte Formatierung?

Nach oben
       

Hallo Reinhard, ich bins nochmals, kann ich das Makro dann auch auf die anderen Tabellen übertragen? oder muss ich etwelche sachen ändern? wenn ja welche?

Danke im Voraus Andi
Reinhard
Fortgeschrittener Einsteiger


Verfasst am:
27. Nov 2004, 01:03
Rufname:


AW: Bedingte Formatierung? - AW: Bedingte Formatierung?

Nach oben
       

Hallo Andi,

wenn du das veränderte Makro:
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 5 Then
Dim z As Integer
Dim zp As Integer
Dim s As Integer
z = Range("B65536").End(xlUp).Row
zp = (z - 2) * 0.4
Range("A2", "G" & zp).Font.Bold = True
For s = 3 To zp
    Cells(s, 1) = "*"
Next s
End If
End Sub

ins Modul der Arbeitsmappe kopierst, würde es bei Eingaben in Spalte E automatisch ablaufen. Außerdem wirkt es in allen Tabellenblättern der Arbeitsmappe.

_________________
Gruß Reinhard

Nur wer mit seinem Denken Grenzen
überschreitet, wird etwas bewegen.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: bedingte Formatierung / oder Verknüpfung 4 spawn 30291 23. Mai 2006, 22:39
spawn bedingte Formatierung / oder Verknüpfung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 5 Test007 741 15. Mai 2006, 08:24
< Peter > Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 8 Snewi 1129 09. Mai 2006, 21:13
Bonny Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: bedingte Formatierung im nachbar Feld verändern 6 sisqonrw 1463 15. Apr 2006, 19:53
sisqonrw bedingte Formatierung im nachbar Feld verändern
Keine neuen Beiträge Excel Formeln: bedingte Formatierung mit Checkbox 5 Gast 2362 08. März 2006, 17:37
Zimbomann bedingte Formatierung mit Checkbox
Keine neuen Beiträge Excel Formeln: Formel oder Formatierung ?Zahlen in Tausend anzeigen? 5 tomate 9775 11. Feb 2006, 11:00
tomate Formel oder Formatierung ?Zahlen in Tausend anzeigen?
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung (Sonntage) 7 Gast 1139 08. Dez 2005, 15:07
fridgenep Bedingte Formatierung (Sonntage)
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung -Fristüberwachung 4 xmichax 1864 22. Nov 2005, 20:18
xmichax Bedingte Formatierung -Fristüberwachung
Keine neuen Beiträge Excel Formeln: Summe nach bedingter Formatierung 4 les 1127 20. Sep 2005, 13:39
Thomas Ramel Summe nach bedingter Formatierung
Keine neuen Beiträge Excel Formeln: bedingte Formatierung 3 G.Koch 750 19. Sep 2005, 14:13
fridgenep bedingte Formatierung
Keine neuen Beiträge Excel Formeln: bedingte Formatierung ganze Zeile enfärben 2 skyblue 2517 06. Sep 2005, 12:41
skyblue bedingte Formatierung ganze Zeile enfärben
Keine neuen Beiträge Excel Formeln: bedingte Formatierung 5 Gonyzo 842 02. Sep 2005, 14:11
Willie bedingte Formatierung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks