Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

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

Spaltenbezeichnung wechseln A,B,C - 1, 2, 3
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

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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

Anzeige
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

Anzeige
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
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige