Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
148to152
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1te leere Zeile ?

1te leere Zeile ?
22.08.2002 10:02:20
Rainer K.
Hallo Forum !

Ich habe Tabellenblätter in denen die Gutstunden der Mitarbeiter aufgelistet werden. Ganz unten werden sie summiert. Bisher habe ich, wenn nur noch 5 Zeilen zwischen dem letzten Eintrag und den Ergebnissen frei waren, den Abstand durch hinzufügen von neuen Zeilen und herunterkopieren der Formeln wieder vergrößert. Dies würde ich gerne über ein Macro machen. Wie kann ich aber feststellen welches die erste leere Zeile von oben ist ?

Gruß
Rainer

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: 1te leere Zeile ?
22.08.2002 10:21:24
L.Vira
Beispiel geht von Eingabe in Spalte A aus:
Wieviel Zeilen frei sein sollen, kannst du mit der Variablen
Voraus festlegen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TR As String, Voraus As Long
Voraus = 5
If Target.Cells.Count > 1 Then Exit Sub
'in diesem Beispiel ist die Eingabespalte A
If Target.Column <> 1 Then Exit Sub
summe = Left(Target.Offset(Voraus, 0).FormulaLocal, 6)
If summe = "=SUMME" Then
ActiveCell.Offset(1, 0).EntireRow.Insert
Application.EnableEvents = False
[a65536].End(xlUp).ClearContents
Application.EnableEvents = True
TR = [a65536].End(xlUp).Offset(Voraus, 0).Address(False, False)
[a65536].End(xlUp).Offset(Voraus + 1, 0) = "=Sum(A2:" & TR & ")"
End If
End Sub
Anzeige
Re: 1te leere Zeile ?
22.08.2002 10:23:38
Rainer K.
Hallo !

Vielen Dank ! Ich glaube das hilft mir weiter, werde ich gleich mal versuchen.

Gruß
Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige