Datum

Titel

26.04.2024 21:51:33

Idee für Grafik

26.04.2024 21:29:07

PQ zufällige Reihenfolge

26.04.2024 17:18:47

Große Datenmenge in komplexes Diagramm verpacken

26.04.2024 16:22:47

Aktualisierung Verknüpfung bei geschlossener Quelldatei

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1280to1284

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

Forumthread: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3
7 Beiträge zu diesem Forumthread
Anzeige
304 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

03.10.2012 09:24:06

Charly

Hallo
Ich bekomm's einfach nicht hin.
Könnt ihr mir helfen?
Mit der Tastenkombination Ctrl + Shift + E möchte ich folgendes erreichen
beim 1. mal drücken
ActiveWindow.DisplayHeadings = True
Application.ReferenceStyle = xlA1
beim 2. mal drücken
ActiveWindow.DisplayHeadings = True
Application.ReferenceStyle = xlR1C1
beim 3. mal drücken
Application.ReferenceStyle = xlA1
ActiveWindow.DisplayHeadings = False
Danke vorab
MfG Charly

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 09:45:15

{Boris}
Sorry...

03.10.2012 09:50:07

{Boris}
AW: Sorry...

03.10.2012 10:08:06

Charly
Danke Boris ...

03.10.2012 10:22:59

Charly
AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 09:53:22

Matthias
AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 10:13:53

Charly
AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 10:01:40

Charly

AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 09:45:15

{Boris}

Hi Charly,

Option Explicit
Sub Bezugsart_aendern()
Dim blnRefStyle As Boolean
blnRefStyle = (Application.ReferenceStyle = xlA1)
ActiveWindow.DisplayHeadings = True
Application.ReferenceStyle = IIf(blnRefStyle, xlR1C1, xlA1)
End Sub

und Deiner Tastenkombi zuweisen.
VG, Boris

Sorry...

03.10.2012 09:50:07

{Boris}

Hi Charly,
hab übersehen, dass beim 3. mal die Headings auf False stehen sollen.
Frage: Was soll beim 4. mal passieren?
VG, Boris

AW: Sorry...

03.10.2012 10:08:06

Charly

Hi Boris
beim 4. mal wie beim 1. mal
MfG Charly

Danke Boris ...

03.10.2012 10:22:59

Charly

... die Lösung von Matthias funktioniert.
Schönen Feiertag
MfG Charly

AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 09:53:22

Matthias

Hallo Charly

Option Explicit
Public zZähler As Integer
Sub TesT_XL()
If zZähler = 0 Then zZähler = 1
Select Case zZähler
Case Is = 1
ActiveWindow.DisplayHeadings = True
Application.ReferenceStyle = xlA1
Case Is = 2
ActiveWindow.DisplayHeadings = True
Application.ReferenceStyle = xlR1C1
Case Is = 3
ActiveWindow.DisplayHeadings = False
Application.ReferenceStyle = xlA1
End Select
zZähler = zZähler + 1
If zZähler = 4 Then zZähler = 1
End Sub

Gruß Matthias

AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 10:13:53

Charly

Hallo Matthias
Das klappt prima.
Danke und Schönen Ft noch
MfG Charly

AW: Spaltenbezeichnung wechseln A,B,C - 1, 2, 3

03.10.2012 10:01:40

Charly

Hi Boris
Erstmal Danke für die schnelle Antwort.
Aber
beim 3. mal drücken
Application.ReferenceStyle = xlA1
ActiveWindow.DisplayHeadings = False
funktioniert nicht.
Könntest du nochmal nen Blick nehmen?
Danke
MfG Charly