Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Überschriften erkennen und zentrieren
#1
Excel-VBA

Hallo,

ich möchte gerne Überschriften automatisch zentriert dargestellt haben, also: Wenn in einem Spaltenbereich der Eintrag "X" oder "Y" steht, handelt es sich um eine Überschrift. Diese soll automatisch bereits nach der Eingabe zentriert dargestellt werden, alle anderen Eingaben aber linksbündig.
Wird der Zelleintrag geändert ... z. B. in "A" ... soll wieder eine linksbündige Darstellung erfolgen.

Sicher simple einfach ... aber ich schaffe es nicht.

Danke und lieben Gruss, Elmar
Antwortento top
#2
Hallo,

Überschriften stehen üblicherweise in Zeile 1. Wozu also der Aufwand?
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#3
Moin!
Ich habe es ebenfalls wohl noch nicht ganz verstanden.
Eine Beispieldatei könnte beim Helfen helfen.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antwortento top
#4
Hallo ...

Beispiel:


Spalte D

Möbel (zentriert)
Tisch (linksbündig)
Stuhl (linksbündig)
...

Fahrzeuge (zentriert)
Auto (linksbündig)
Motorrad (linksbündig)
...

... also wenn in Spalte D Eintrag = "Möbel" oder "Fahrzeuge" ... dann ....

Danke und Gruss, Elmar
Antwortento top
#5
Hallo,

Zwischenüberschriften und leere Zeilen gehören zu den 10 Todsünden beim erstellen einer Exceldatei.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#6
Da des Menschen Wille bekanntlich sein Himmelsreich ist, hier mal eine Lösung.
Erweitern darfst Du selbst:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 4 And .CountLarge = 1 Then
    If .Text = "Möbel" Or .Text = "Fahrzeuge" Then
      .HorizontalAlignment = xlCenter
      .Font.Bold = True
    Else
      .HorizontalAlignment = xlLeft
      .Font.Bold = False
    End If
  End If
End With
End Sub

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Benutzer sagt Danke an RPP63 für diesen Beitrag:
  • el_gor
Antwortento top
#7
Hallöchen,

hier mal auf die Aufgabe angepasst

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Column = 1 And .CountLarge = 1 Then
    If .Text = "x" Or .Text = "y" Then
      .offset(,3).HorizontalAlignment = xlCenter
      .offset(,3).Font.Bold = True
    Else
      .offset(,3).HorizontalAlignment = xlLeft
      .offset(,3).Font.Bold = False
    End If
  End If
End With
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#8
Ich glaube, dass mein Code eher der "Beispieldatei" entspricht, André!
100
Schließlich wurde aus "X" "Möbel" und aus "einem Spaltenbereich" nun die Spalte D.

Irrtum (nicht) ausgeschlossen. Wink

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antwortento top
#9
Halöchen,

durchaus möglich. ich habe das
Zitat:Wenn in einem Spaltenbereich der Eintrag "X" oder "Y" steht, handelt es sich um eine Überschrift. ... Wird der Zelleintrag geändert ... z. B. in "A" ...
als Spalte aufgefasst, wo die x und y stehen bzw. wo mit x oder y gesteuert werden soll, was eine Überschrift ist. Ansonsten bekommt man für 1001 Überschriften einen entsprechend umfangreichen code Smile
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#10
(31.10.2020, 15:07)schauan schrieb: Ansonsten bekommt man für 1001 Überschriften einen entsprechend umfangreichen code Smile
Wohl wahr!  Angel
Dies würde ich dann mit einer Hilfstabelle, die alle "Warengruppen" auflistet, lösen.
(Range.Find-Methode nebst If Not Suche Is Nothing Then …)
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste