AW: Von Tabell1 in Tabellealles archivieren
19.01.2004 16:54:06
ALM
Hallo Hega,
hier ein kleines Beispielprogramm:
Sub Sicherung()
' Variablen deklaration
Dim Zeilen As Object
Dim Leerstellen As Long
Dim Zeilenzaehler As Long
Dim Zelle_ As String
' Variablen setzen
Leerstellen = 0
Zeilenzaehler = 1
' Programm
Sheets("Tabelle1").Select
' das Tabellenbaltt "Tabelle1" aktiviert
Range("A2:Z14").Select
' hier werden die zu sichernden Zellen markiert
Selection.Copy
' hier werden die Zellen in den Zwichenspeicher kopiert
Sheets("Tabellealles").Select
' das Tabellenblatt "Tabellealles" wird aktiviert
' In dieser Schleife wird nach Leerstellen gesucht.
' Hinweis ! Nach zwei Leerstellen fügt er die Daten aus dem
' Zwischenspeicher ein.
For Each Zeilen In Worksheets("Tabellealles").Range("A1:A65536")
If Zeilen = "" Then
' Testet ob Leerstelle, wenn ja, dann wird die Variable "Leerstelle" um
' eins dazu addiert
Leerstellen = Leerstellen + 1
Else
' wenn nein, dann wird die Variable "Leerstelle" auf null gesetzt
Leerstellen = 0
End If
If Leerstellen = 2 Then
' Nach der zweiten Leerstelle wird die Schleife ( FOR - Schleife )
' abgebrochen
Exit For
End If
Zeilenzaehler = Zeilenzaehler + 1
' wird benutzt um die letzte Zellennummer zu speichern
Next Zeilen
Zelle_ = "A" + CStr(Zeilenzaehler)
' hier wird der Zellen Ort erzeugt
Range(Zelle_).Select
' markierung der herausgesuchten Zeile
ActiveSheet.Paste
' einfügen der Daten aus dem Zwischenspeicher
Sheets("Tabelle1").Select
' Aktivierung der "Tabelle1"
Application.CutCopyMode = False
' deaktivierung der "Kopier" -Markierung
Range("A2").Select
' Zelle A2 wird markiert um die Markierung aufzuheben
End Sub
Dieses musst Du in ein Modul kopieren. Dann kannst Du es aufrufen.
-> Extras->Makro->Visual Basic- Editor
dort dann
->Einfügen->Modul
dann den Text oben einfügen von
Sub Sicherung() bis End Sub
Das Makro aufrufen geht über
-> Extras->Makro->Makros->Sicherung
MFG
ALM