Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Verdeckte Spalte überspringen
#1
Hallo Leute,

die Programmieranweisung ActiveCell.Offset(0, 1).Activate überspringt leider nicht
die Spalte, wenn diese ausgeblendet ist. Wie schaffe ich das?
to top
#2
Hallo,

am besten wenn Du das Selektieren und Aktivieren verzichtest. Eine Erklärung findest Du hier.
Gruß Stefan
Win 7 / Office 2007
[-] Folgende(r) 1 Benutzer sagt Danke an Steffl für diesen Beitrag:
SonjaFido
to top
#3
Hallo Stefan,
Ich glaube, ohne Activate schickt Dich Excel mit Offset trotzdem in die ausgeblendete Spalte.Huh Bzw. Führt die geplante Aktion dort aus.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
SonjaFido
to top
#4
Hallo André,

Du hast Recht, man wäre in der ausgeblendeten Spalte.

@SonjaFido

Wenn es sich nur um eine ausgeblendete Spalte handelt, kannst Du es mal so versuchen (mit Activate Sad ).

Code:
Dim lngC As Long

lngC = IIf(ActiveCell.Offset(0, 1).Columns.Hidden, 2, 1)
ActiveCell.Offset(0, lngC).Activate
Gruß Stefan
Win 7 / Office 2007
[-] Folgende(r) 1 Benutzer sagt Danke an Steffl für diesen Beitrag:
SonjaFido
to top
#5
(07.09.2014, 11:28)SonjaFido schrieb: ... Wie schaffe ich das?

Am besten, indem du nicht nur eine frei stehend Zeile Code vorstellst, ohne jeglichen Zusammenhang und Ziel dessen, was dann passieren soll.

Code:
Option Explicit

Sub NextNotHidden()
   Dim Ze As Long, Sp As Integer, ZielSp As Integer
  
   With ActiveSheet
      Ze = ActiveCell.Row
      Sp = ActiveCell.Column
      For ZielSp = Sp + 1 To Columns.Count
         If Not .Columns(ZielSp).Hidden Then Exit For
      Next ZielSp
      .Cells(Ze, ZielSp) = "Treffer!!"
   End With
End Sub

... natürlich ohne das Activate 05 Und funktioniert natürlich auch bei mehreren nebeneinander ausgeblendeten Spalten.
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
[-] Folgende(r) 1 Benutzer sagt Danke an GMG-CC für diesen Beitrag:
SonjaFido
to top
#6
Hallo Freunde,

für eure guten Tipps und Ratschläge möchte ich mich bedanken.
Ihr habt mir sehr geholfen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Werte übertragen mit Bedingung und Zeilen überspringen Asmus 9 124 19.11.2016, 19:25
Letzter Beitrag: Asmus
  wenn in tabelle wert in spalte dann neue spalte in neuer tabelle merzens 4 83 16.11.2016, 13:44
Letzter Beitrag: schauan
  Wenn Spalte E nicht leer dann Datum in Spalte O VBA BadHabiit 4 221 20.09.2016, 14:49
Letzter Beitrag: BadHabiit
  Funktion -> Nur in Spalte X zählen wenn Y in Spalte Z steht MacTop 18 494 07.09.2016, 13:59
Letzter Beitrag: MacTop
  Verkette Spalte A wenn "x" in Spalte B Goleo 6 464 31.05.2016, 17:39
Letzter Beitrag: Goleo
  Leere Zelle überspringen Micha 3 417 24.05.2016, 15:30
Letzter Beitrag: Micha
  Zeile nach Prüfung in anderen AB übertragen + negative überspringen msilva 2 278 22.05.2016, 19:12
Letzter Beitrag: msilva
  Auszug aus Spalte mit Bedingung in anderer Spalte MalteMobile 4 344 11.05.2016, 08:15
Letzter Beitrag: steve1da
  Zellen überspringen beim Kopieren lalaland 7 570 30.04.2016, 16:43
Letzter Beitrag: coemm
  Formel: Anhand gleicher Werte in Spalte A, in Spalte B Doppler finden DonnaWetta 2 379 11.04.2016, 16:17
Letzter Beitrag: DonnaWetta

Gehe zu:


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