Execl Problem

[Flextone]

Hi,

kann man per Format oder so, alle in einer Spalte befindenen Texte durchgehend groß schreiben ?

Ich habe Excel 2003.

 

[Julian Maicher]

Du kannst es so machen:

'VBA
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim EBereich As Range
    Set EBereich = Range("B3:F20") 'Bereich, wo die Funktion greifen soll
    If Intersect(Target, EBereich) Is Nothing Then Exit Sub
    Target = UCase(Target)
End Sub

 

[Flextone]

und anders auch ?

check dein posting kaum

 

[monger]

und anders auch ?

check dein posting kaum

VBA ist eine für die Office Programme entwickelte Scriptsprache, die auf Visual Basic basiert. Durch VBA bekommen z.B. Access und Excel Möglichkeiten, die sie sonst nicht hätten, wie z.B. Funktionen, die Zeichen in Großbuchstaben umwandeln (in C++ geht das mit toupper).
Einfacher geht es natürlich auch: Mit der Feststelltaste .
Wer aber an dieser Stelle eine VBA-Lösung anbietet, der weiß was er tut!

 

[Julian Maicher]

Es gibt leider keine andere Lösung.
Hier mal eine Step-by-Step-Anleitung was du tun musst:
1. Ansicht -> Symbolleisten -> Visual Basic (Falls noch nicht vorhanden)
2. Visual Basic Editor (Teil der Symbolleiste) anklicken
3. Doppelklick auf die gewünschte Tabelle, in der die Funktion zur Verfügung stehen soll
4. Einfügen des Codes:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim EBereich As Range
    Set EBereich = Range("B3:F20") 'Bereich, wo die Funktion greifen soll
    If Intersect(Target, EBereich) Is Nothing Then Exit Sub
    Target = UCase(Target)
End Sub

5. Code anpassen

Set EBereich = Range("B3:F20")

B3:F20 bedeutet, dass Feld zwischen diesen beiden Zellen ist von der Funktion betroffen. Also auch B4, C5, ...,D15 usw ...
Soll z.B. nur Zelle A1 - A15 von dieser Funktion betroffen sein, lautet die richtige Zeile:

Set EBereich = Range("A1:A15")

Sollen generell alle Zellen in dieser Tabelle betroffen sein, kannst du das auch ganz weglassen:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target Is Nothing Then Exit Sub
    Target = UCase(Target)
End Sub

6. Wieder zu Excel wechseln (Editor einfach schließen).
7. Extras -> Makro -> Sicherheit -> Auf Mittel stellen
8. Speichern und Arbeitsmappe (Excel) einmal schließen
9. Erneut öffnen und "Makros aktivieren" anklicken

Und schon sollte es funktionieren.