MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 18.12.2017, 22:25   #1
Itchinger
Neuer Benutzer
Neuer Benutzer
Standard VBA - Großbuchstaben korrigierendes Makro

Hallo, möchte das man nur in Spalte a, b und c Großbuchstaben (und Zahlen) zu sehen sind.

Das Makro soll beim Verlassen der Zelle (wegklicken,tab,enter,pfeiltasten)
losgehen und die Zelle korrigieren.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then Call GROß2
End Sub
Sub GROß2()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = UCase(Zelle.Value)
Next Zelle
End Sub

Klappt ja nicht mal mit einer Spalte .
Itchinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.12.2017, 00:35   #2
R J
MOF Meister
MOF Meister
Standard

Hi,

ich schlage vor, dass das Makro bei Wertänderung startet.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Static x As Boolean
If Not Intersect(Target, Range("A:C")) Is Nothing Then
    x = Not x
    If x  Then Target = UCase(Target)
End If
End Sub

__________________

Ciao, Ralf

Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.


R J ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.12.2017, 07:57   #3
EarlFred
MOF Guru
MOF Guru
Standard

@Ralf
Deaktivier doch Events vor dem Wandeln in Großbuchstaben.

Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 3 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,023% per 05.12.2017) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.12.2017, 09:57   #4
R J
MOF Meister
MOF Meister
Standard

@EarlFred,

zeilenmäßig käme es auf das Gleiche hinaus, Schnelligkeit könnte marginal besser sein. Aber, eine gute Option....

__________________

Ciao, Ralf

Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.


R J ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.12.2017, 16:15   #5
Itchinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Super, danke klappt.
Itchinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 01.01.2018, 12:34   #6
Itchinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Muss dochn ochmal nachhaken
bekomme den Laufzeitfehler 13 Typen unverträglich,
wenn ich was in den Spalten kopiere, einfüge bzw. Formatiere.

Er markiert mir die Zeile
If x Then Target = UCase(Target)
Itchinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 01.01.2018, 12:42   #7
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Ich würde es ohne VBA mit einer benutzerdefinierten Datengültigkeit machen:
 A
1GANZ GROSS

ZelleGültigkeitstypOperatorWert1Wert2
A1Benutzerdefiniert =IDENTISCH(A1;GROSS(A1)) 


Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 01.01.2018, 13:01   #8
RPP63neu
MOF Meister
MOF Meister
Standard

Und wenn es nur um die Optik geht, kann man sich auch mit einer Schriftart behelfen.
Die verwendete Perpetua Titling ist frei verfügbar.
https://www.microsoft.com/typography...y.aspx?FID=135
In der Zelle steht klein 2

 J
1klein 2

ZelleSchriftartInhalt
J1Perpetua Titling MTklein 2


Da das Tool die Schriftart nicht umsetzt, mal ein Screenshot:

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok

Geändert von RPP63neu (01.01.2018 um 13:08 Uhr).
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 01.01.2018, 13:13   #9
Storax
MOF Profi
MOF Profi
Standard

Verbesserte Variante des Worksheet Events
Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo ErrExit

    Dim rg As Range
    Dim sngCell As Range

    Application.EnableEvents = False

    Set rg = Intersect(Target, Range("A:C"))

    If Not rg Is Nothing Then
        For Each sngCell In rg
            sngCell = UCase(sngCell)
        Next
    End If

ErrExit:
    Application.EnableEvents = True

End Sub
PS Was soll denn eigentlich bei Formeln passieren??

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Be careful, content may contain traces of irony.

Geändert von Storax (01.01.2018 um 13:21 Uhr).
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.01.2018, 16:06   #10
Itchinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

klappt Storax
thx :-)
Itchinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:29 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.