Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

aktive Zelle in Spalte A ?

aktive Zelle in Spalte A ?
19.08.2005 12:40:07
Johannes
Hallo Freunde,
in meiner Tabelle stehen in der Spalte A die Artikel. Über die Variable "Art" hole ich mir den Inhalt der aktiven Zelle.
Art = ActiveCell.Value
Im folgenden wird der Inhalt der Variablen "Art" in ein Berechnungsschema eingefügt. Wenn allerdings die aktive Zelle nicht in Spalte A steht, kommt zwangsläufig nur Unsinn heraus. Frage nun: wie muss ich eine IF Abfrage gestalten, dass der folgende Ablauf nur durchgeführt wird, wenn die Aktive Zelle aus der Spalte A kommt?
Für Eure Hilfe einstweilen schon mal vielen Dank.
Gruß
Johannes

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktive Zelle in Spalte A ?
19.08.2005 12:43:24
Matthias
Hallo Johannes,
entweder so:
If Intersect(Range("A:A"),ActiveCell) Is Nothing Then
MsgBox "Nicht in A"
Else
MsgBox "in A"
End If
oder du holst du die Zelle in Spalte A:
Art = Cells(ActiveCell.Row, 1)
Gruß Matthias
AW: aktive Zelle in Spalte A ?
19.08.2005 12:43:29
Ramses
Hallo
If ActiveCell.Column 1 Then
msgbox "Active Zelle nicht in spalte A"
Exit sub
Else
Art = ActiveCell.Value
end If
Gruss Rainer
AW: aktive Zelle in Spalte A ?
19.08.2005 12:43:40
ransi
hallo johannes

Sub was weiss ich()
if activecell.column=1 then
'code
end if
End Sub

oder

Sub was weiss ich()
if activecell.column<>1 then exit sub
code
End Sub

Anzeige
AW: aktive Zelle in Spalte A ?
19.08.2005 12:44:22
Harry
Hallo Johannes
if activecell.column = 1 then ...
Gruß
Harry
AW: aktive Zelle in Spalte A ?
19.08.2005 12:45:24
Martina
so in etwa:
If ActiveCell.Column = 1 Then
'was immer die Kiste machen soll
Else
Exit Sub
End If
MfG
Martina
Herzlichen Dank an alle owT
19.08.2005 13:00:55
Johannes
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige