Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
markierten Bereich zeilenweise bearbeiten
zurück: Schließen von VBA-Projekten weiter: Wert größter als 0 sortieren und Bereich drucken Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
MarLe
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 16:03
Rufname:

markierten Bereich zeilenweise bearbeiten - markierten Bereich zeilenweise bearbeiten

Nach oben
       Version: Office 2007

Hallo zusammen,

Mit der Procedure wird in einem markierten Bereich (z.B. B2:F4) die größte Zahl fett markiert.
Code:
Sub MaxWert()
  Dim dblMax As Double
  Dim rngBereich As Range
  Dim rngMax As Range

  Set rngBereich = ActiveSheet.Range(Selection.Address)
         
  dblMax = Application.WorksheetFunction.Max(rngBereich)
  Set rngMax = rngBereich.Find(dblMax)
  rngMax.Font.Bold = True
End Sub

Ich hätte jetzt gern eine Procedur die dies pro Zeile macht.
d.h. B2:F4 ist markiert und es werden jeweils die größten Zahlen in der Zeile 2, 3 und 4 fett markiert.

Gruß MarLe
Nicolaus
Hobby-VBAler


Verfasst am:
28. Feb 2013, 16:14
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: markierten Bereich zeilenweise bearbeiten - AW: markierten Bereich zeilenweise bearbeiten

Nach oben
       Version: Office 2007

Hi,

probier mal:
Code:
Sub MaxWert()
    Dim dblMax As Double
    Dim rngBereich As Range, rngRow As Range
    Dim rngMax As Range
   
    Set rngBereich = Selection
           
    For Each rngRow In rngBereich.Rows
        dblMax = WorksheetFunction.Max(rngRow)
        Set rngMax = rngRow.Find(dblMax)
        rngMax.Font.Bold = True
    Next rngRow
End Sub
Gruss
Nic

_________________
die Forenhelfer freuen sich über eine Antwort
MarLe
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 16:36
Rufname:


AW: markierten Bereich zeilenweise bearbeiten - AW: markierten Bereich zeilenweise bearbeiten

Nach oben
       Version: Office 2007

Hallo Nic,

ah funzt, mir fehlte bei der For-Schleife das .Rows für die Zeilen im markierten Bereich. Schon wieder schlauer geworden.

Danke MarLe
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: Zuordnung einer Zahl in einem Bereich... 2 roland330 880 26. März 2007, 12:50
Gast Zuordnung einer Zahl in einem Bereich...
Keine neuen Beiträge Excel Formeln: Suche Funktion: Anzahl der farbig markierten Zellen 1 Gast 1306 09. März 2007, 13:09
< Peter > Suche Funktion: Anzahl der farbig markierten Zellen
Keine neuen Beiträge Excel Formeln: Hilfe zu Bereich.Verschieben 0 ManuelaG 680 06. März 2007, 19:50
ManuelaG Hilfe zu Bereich.Verschieben
Keine neuen Beiträge Excel Formeln: Verweis für einen Bereich(Summe) 3 TheCrow 1415 27. Feb 2007, 12:30
TheCrow Verweis für einen Bereich(Summe)
Keine neuen Beiträge Excel Formeln: Tabellendaten zeilenweise umsortieren + 1 Kriterium 1 scheffe 498 01. Feb 2007, 12:04
ransi Tabellendaten zeilenweise umsortieren + 1 Kriterium
Keine neuen Beiträge Excel Formeln: bereich.verschieben vs. sverweis 15 clementis 2518 02. Aug 2006, 14:06
fridgenep bereich.verschieben vs. sverweis
Keine neuen Beiträge Excel Formeln: WENN über Bereich anwenden möglich? 3 stephcar 1292 27. Jul 2006, 13:53
fridgenep WENN über Bereich anwenden möglich?
Keine neuen Beiträge Excel Formeln: kgrösste aus Bereich mit bedingung 8 xl-newp 8830 14. Jul 2006, 17:34
Gast kgrösste aus Bereich mit bedingung
Keine neuen Beiträge Excel Formeln: Bereich verschieben Excel 2003 6 Ahnzi 6857 09. März 2006, 11:49
Ahnzi Bereich verschieben Excel 2003
Keine neuen Beiträge Excel Formeln: Bereich autom. anpassen lassen 3 Detlef 42 822 06. März 2006, 21:45
Detlef 42 Bereich autom. anpassen lassen
Keine neuen Beiträge Excel Formeln: Summe wenn Bereich einem Kriterium entspricht 2 AMB 1018 10. Aug 2005, 16:14
AMB Summe wenn Bereich einem Kriterium entspricht
Keine neuen Beiträge Excel Formeln: Summenbildung für den Bereich von Anfang bis Ende 11 Dan0032 1108 19. Jul 2005, 08:05
Dan0032 Summenbildung für den Bereich von Anfang bis Ende
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum