Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
452to456
452to456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wenn aktive Zelle in Spalte C oder I, dann

Wenn aktive Zelle in Spalte C oder I, dann
11.07.2004 23:12:41
thomas
Hallo,
ich brauche für ein Makro folgende Anweisung, weiss aber nicht, wie das in VBA-Code formuliert wird:
Wenn die aktive Zelle sich in Spalte C oder in Spalte I befindet, dann etc...
Besten Dank
thomas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn aktive Zelle in Spalte C oder I, dann
11.07.2004 23:17:33
Matthias
Hallo Thomas,

Sub Seitenwahl()
Dim iWks As Integer
Dim sp As Integer
sp = ActiveCell.Column
If sp = 3 Or sp = 9 Then
For iWks = 1 To Worksheets.Count
If Worksheets(iWks).Name <> ActiveCell.Value Then
Worksheets(iWks).Visible = False
End If
Next
Else
MsgBox "Zelle in falscher Spalte aktiv"
End If
End Sub

Du solltest aber noch abfragen, ob der Name gar nicht existiert, sonst kommt ein Laufzeitfehler.
Gruß Matthias
AW: Alternativ:
11.07.2004 23:23:11
Matthias
Hallo Thomas,
(bezieht sich auch auf http://xlforum.herber.de/messages/453480.html)
als Alternative, wenn Du das Blatt nur aktivieren willst, ohne alle anderen auszublenden:

Sub Seitenwahl()
Dim iWks As Integer
Dim sp As Integer
sp = ActiveCell.Column
If sp = 3 Or sp = 9 Then
On Error Resume Next
Sheets(ActiveCell.Value).Activate
If Err.Number > 0 Then MsgBox "Blatt """ & ActiveCell.Value & """ nicht gefunden!"
Err.Clear
End If
End Sub

Gruß Matthias
Anzeige
AW: Wenn aktive Zelle in Spalte C oder I, dann
FP
Hallo thomas,
wie wär's mit:
Select Case Activecell.Column
Case 3,9
...
End Select
Servus aus dem Salzkammergut
Franz
Vielen Dank an alle; funktioniert bestens! o.T.
11.07.2004 23:57:36
thomas

16 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige