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

Forumthread: Automatischer Zelleintrag

Automatischer Zelleintrag
Rolf
Hallo Excel Experten!
Beim Ablauf eines Makros möchte ich, wenn in Spalte N2:W1000 eine Wert eingetragen wurde, die jeweilige Spalte ein Überschrift bekommt.
Beispiel:
Wenn in Zelle P501 ein Wert geschrieben wird, möchte ich das die Spalte P eine Überschrift in Zelle P1 bekommt. Die Überschrift ist : Zwischenzeit
Ist dies möglich ?
Vielen Dank für eure Hilfe!
Tschüß
Rolf St.
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Automatischer Zelleintrag
Christoph
Hi Rolf:
Formel in N1:
=WENN(ANZAHL2(N2:N1000)&gt0;"Zwischenzeit";"")
und nach rechts ausfüllen
Gruß
Christoph
AW: Automatischer Zelleintrag
Rolf
Hallo Christoph!
Vielen Dank für deine Hilfe!
Wie bekomme ich diese Formel jetzt in mein Makro?
Gruß
Rolf
AW: Automatischer Zelleintrag
25.04.2004 10:42:10
Christoph
Hi Rolf,
zB. so:

Sub Formel()
Range("N1").FormulaR1C1 = "=IF(COUNTA(R[1]C:R[999]C)>0,""Zwischenzeit"","""")"
Range("N1").AutoFill Destination:=Range("N1:W1"), Type:=xlFillDefault
End Sub

erzählt mir mein Makrorecorder
Wenn du keine Formel willst, sondern nur den Eintrag dann so:

Sub Ergebnis()
Dim i%
For i = 14 To 23
If Application.CountA(Range(Cells(2, i), Cells(1000, i))) > 0 Then
Cells(1, i) = "ZwischenZeit"
End If
Next
End Sub

Gruß
Christoph
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige