Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro anwenden

Makro anwenden
04.02.2009 16:03:13
Gerd
Hallo zusammen,
Wie kann ich dieses Makro auf markierte (oder eine ganze Spalte) Zellen anwenden?

Sub Makro4()
ActiveCell.Characters(Start:=1, Length:=InStr(1, ActiveCell.Value, Chr(10))).Font.Size = 44
End Sub


Gruß Gerd

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro anwenden
04.02.2009 17:16:00
Josef
Hallo Gerd,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ersteZeileInZelleFett()
    Dim rng As Range
    Dim intPos As Integer
    Dim strLineEnd As String
    
    strLineEnd = Chr(10)
    
    For Each rng In Selection
        If rng <> "" Then
            intPos = InStr(1, rng, strLineEnd)
            If intPos > 0 Then
                rng.Characters(Start:=1, Length:=intPos - 1).Font.Size = 44
            End If
        End If
    Next
End Sub
Gruß Sepp

Anzeige
AW: Makro anwenden
05.02.2009 08:14:27
Gerd
Hallo Sepp,
vielen Dank. Hat geklappt.
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige