Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

FP bitte noch mal melden

FP bitte noch mal melden
21.01.2004 06:13:18
Marion K.
Hallo Franz,habe von Dir am 17.01.04 ein Makro bekommen habe dazu noch Fragen.
Gruss Marion

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

Betreff
Datum
Anwender
Anzeige
AW: FP bitte noch mal melden
21.01.2004 06:44:25
JusufG
Vielleicht kann andere auch helfen. Stell code ins forum...
AW: FP bitte noch mal melden
21.01.2004 07:04:15
Marion K.
Hallo Jusuf, habe die Datei mal hochgeladen.
Habe die stellen markiert, die nach der Sicherung gelöscht oder nicht gelöscht
werden sollen.
Es geht darum das nach der Auswertung die Blätter arichiviert werden sollen,
und zwar so das stets eine Zeile zwischen den Archivierten Blättern frei bleiben soll.
https://www.herber.de/bbs/user/3074.xls
Gruss Marion
AW: Sichern mit Leerzeile
21.01.2004 09:10:25
FP
Hallo Marion,
bitte sehr:

Sub SaveBera1z37()
Dim rngNL As Range      'nächste frei Zeile
With Sheets("Sichern")
Set rngNL = .Cells(.Rows.Count, 1).End(xlUp)
End With
If rngNL.Row > 1 Then _
Set rngNL = rngNL.Offset(2)
With ActiveSheet.Range("A1:Z37")
.Copy rngNL
.ClearContents
End With
'*Formeln in Werte umwandeln
With Sheets("Sichern").UsedRange
.Copy
.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub

Servus aus dem Salzkammergut
Franz
Anzeige
AW: Sichern mit Leerzeile
21.01.2004 12:39:27
Marion K.
Hallo Franz,Danke das Du dich nochmal bemüht hast.Leider geht es nur einmal danach bleibt das Makro immer hängen,habe die Datei hochgeladen schau mal bitte rein.
MfG Marion

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige