Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro - nur Grossbuchstaben

Forumthread: Makro - nur Grossbuchstaben

Makro - nur Grossbuchstaben
20.09.2007 21:40:00
WalterK
Hallo
Ich suche ein Makro, dass im Tabellenblatt alle Eingaben in Grossbuchstaben umwandelt und zwar in:
Spalte G von Zeile 24 bis zur letzten Eingabe und
Spalte K von Zeile 24 bis zur letzten Eingabe und
Spalte M von Zeile 24 bis zur letzten Eingabe.
Besten Dank im voraus und
Servus, Walter

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - nur Grossbuchstaben
20.09.2007 22:03:00
Renee
Servus Walter,

Sub GrOsS()
Dim rc As Range
For Each rc In Range(Cells(24, 7), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 7))
rc.Value = UCase(rc.Value)
Next rc
For Each rc In Range(Cells(24, 11), Cells(Cells(Rows.Count, 11).End(xlUp).Row, 11))
rc.Value = UCase(rc.Value)
Next rc
For Each rc In Range(Cells(24, 13), Cells(Cells(Rows.Count, 13).End(xlUp).Row, 13))
rc.Value = UCase(rc.Value)
Next rc
End Sub


GreetZ Renee

Anzeige
AW: Makro - nur Grossbuchstaben
20.09.2007 22:16:23
WalterK
Hallo Renee,
Danke vorerst, funktioniert bei mir aber nicht.
Mache ich etwas falsch?
So bin ich vorgegangen:
Blatt/Tabellenreiter/Code anzeigen/Code hineinkopiert/Datei gespeichert
Servus, Walter

AW: Makro - nur Grossbuchstaben
20.09.2007 22:17:33
Renee
Servus Walter,
Code war für ein MODUL gedacht.
GreetZ Renee

Anzeige
AW: Halt - Stop
20.09.2007 22:18:00
WalterK
Hallo Renee,
Jetzt hab' ichs, über "Makro ausführen" funktionierts.
Allerdings hätte ich gerne, dass gleich nach der Eingabe und dem Verlassen der Zelle die Umwandlung stattfindet.
Servus, Walter

AW: Halt - Stop
20.09.2007 22:23:00
Renee
Hi Walter,
Hab ich am Anfang auch gedacht, aber dann hab mich das "...bis zum Ende" verwirrt.
In die Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Target.Row > 23 And _
(Target.Column = 7 Or _
Target.Column = 11 Or _
Target.Column = 13)) Then Exit Sub
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End Sub


GreetZ Renee

Anzeige
AW: Klasse, besten Dank. Servus Walter oT
20.09.2007 22:27:00
WalterK

AW: Makro - nur Grossbuchstaben
20.09.2007 22:27:42
Josef
Hallo Walter,
probier mal.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

On Error GoTo ErrExit
Application.EnableEvents = False

For Each rng In Target
    If rng.Row > 23 Then
        If rng.Column = 7 Or rng.Column = 11 Or rng.Column = 13 Then
            rng = UCase(rng)
        End If
    End If
Next

ErrExit:
Application.EnableEvents = True

End Sub

Gruß Sepp

Anzeige
AW: Auch Dir besten Dank, klappt prima. Servus W.
20.09.2007 22:32:00
WalterK
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige