Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Abfrage

If Abfrage
25.05.2003 13:10:27
Thomas Sch.
Hallo,

ich habe ein kleines Problemchen, vielleicht hat ja jemand eine kurze Lösung, ich nehme an das mir nur ein kleiner Befehl fehlt.

Ich will eine Abfrage machen, wenn in Zelle 25 ein Wert steht soll soll in Zelle "A 25" eine 1 erscheinen. Dieses habe ich mit Wenn-Funktionen auch so hinbekommen.

Nun soll aber über ein Makro, dass jedesmal bei Aufruf des Arbeitsblattes ausgeführt wird eine Abfrage erfolgen.

Meine Lösung sieht bisher so aus:
Range("A25").Select
If ActiveCell.FormulaR1C1 = "1" Then Rows("26:26").RowHeight = 12

Jedoch habe ich das Problem, das hier nichts passiert.
Füge ich allerdings in der Zelle "A25" manuell eine 1 ein, so wird dieses Makro ausgeführt. Ich nehme an, es liegt an der Formel, die in der Zelle steht.

Falls jemand eine Lösung hat, wäre ich sehr dankbar.

Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: If Abfrage
25.05.2003 13:25:52
andre

hallo thomas,
geht z.b. so:
Public Sub test()
If [a25].Value = 1 Then Rows("26:26").Select: Selection.RowHeight = 12
End Sub
gruss andre

Re: If Abfrage
25.05.2003 13:27:13
Tom

Kopiere folgende Prozedur in das Tabellen-Modul:

Private Sub Worksheet_Activate()
If Not IsEmpty(ActiveSheet.Range("A25").Value) Then
ActiveSheet.Range("A25").Value = 1
ActiveSheet.Rows("25:25").RowHeight = 12
End If
End Sub

Tom

Re: If Abfrage
25.05.2003 15:12:52
Thomas Sch.

Vielen Dank erstmal, die Lösung von Andre war genau die Richtige.

Es sind doch manchmal nur Kleinigkeiten.

Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige