Bei Markierung ganze Zeile in neues Sheet kopieren

• Bei Markierung ganze Zeile in neues Sheet kopieren von Josef vom 19.11.2003 19:01:17
  • AW: Bei Markierung ganze Zeile in neues Sheet kopieren - von PeterW am 19.11.2003 19:07:35
    • AW: Bei Markierung ganze Zeile in neues Sheet kopieren - von Josef am 19.11.2003 19:22:50
      • AW: Bei Markierung ganze Zeile in neues Sheet kopieren - von PeterW am 19.11.2003 19:47:11
        • AW: Bei Markierung ganze Zeile in neues Sheet kopieren - von Josef am 19.11.2003 20:09:26

Betrifft: Bei Markierung ganze Zeile in neues Sheet kopieren
von: Josef
Geschrieben am: 19.11.2003 19:01:17
Guten Abend!

Ich habe eine Menge Datensätze, ab der Spalte B.
Wenn ich jetzt z. B. in der Zelle A4 und A7 ein Zeichen setze, z.B. "a", dann sollen die Zeilen 4 und 7 in ein neues Sheet kopiert werden. Gibt es hier bitte vielleicht ein VBA Lösung?
Für eine Hilfe wäre ich dankbar.

Danke

Josef

Betrifft: AW: Bei Markierung ganze Zeile in neues Sheet kopieren
von: PeterW
Geschrieben am: 19.11.2003 19:07:35
Hallo Josef,

wie heißt das neue Sheet, oder soll das erst angelegt werden, ggf unter welchem Namen? Wenn die Datensätze kopiert sind soll dann das a entfernt werden? Soll das a mit kopiert werden? Gib bitte etwas genauere Angaben - das Problem selbst ist recht einfach zu lösen, wenn man die Rahmenbedingungen kennt. :-)

Gruß
Peter

Betrifft: AW: Bei Markierung ganze Zeile in neues Sheet kopieren
von: Josef
Geschrieben am: 19.11.2003 19:22:50
Hallo Peter!

Danke für Deine Antwort.

Der Name des Sheets wäre mir egal. Kann ruhig Tabelle2 lauten.
Das a muß nicht entfernt werden und kann ruhig mitkopiert werden.

Josef

Betrifft: AW: Bei Markierung ganze Zeile in neues Sheet kopieren
von: PeterW
Geschrieben am: 19.11.2003 19:47:11
Hallo Josef,

so ganz egal ist der Name nicht; was soll passieren, wenn der Code erneut in der Mappe laufen soll? Soll die Übertragung dann wieder in ein neues Blatt erfolgen oder der schon kopierte Bereich ergänzt oder überschrieben werden? Mal als Ansatz ein Code für ein einmaliges Kopieren:

Sub Uebertragen()
Dim wksAlt As Worksheet
Dim lgZeile As Long
Dim lgZiel As Long
Set wksAlt = ActiveSheet
Worksheets.Add after:=Sheets(Worksheets.Count)
If IsEmpty(ActiveSheet.Range("B1")) Then
lgZiel = 1
Else
lgZiel = ActiveSheet.Range("B65536").End(xlUp).Row + 1
End If
For lgZeile = 2 To wksAlt.Range("B65536").End(xlUp).Row
If Not IsEmpty(wksAlt.Cells(lgZeile, 1)) Then
wksAlt.Rows(lgZeile).Copy ActiveSheet.Cells(lgZiel, 1)
lgZiel = lgZiel + 1
End If
Next
End Sub

Gruß
Peter

Betrifft: AW: Bei Markierung ganze Zeile in neues Sheet kopieren
von: Josef
Geschrieben am: 19.11.2003 20:09:26
Hallo Peter!

Danke für Deine Hilfe.

Natürlich hast Du in diesem Fall recht.Das hatte ich übersehen.

Josef

Excel-Beispiele zum Thema " Bei Markierung ganze Zeile in neues Sheet kopieren"
Legende eines Datenblattes einschließlich der Farbmarkierung	Markierung einer Datumsreihe gem. UserForm-TextBoxes
Markierung von Formeln über bedingte Formatierung	Markierung des jeweils aktuellen Datums
Markierung von Wochenenden	Markierung von Lotto-Treffern bei einer Tippgemeinschaft.
Zeitabhängige Zellmarkierungen über bedingte Formatierung setzen	Zahlenmarkierungen in einer Lottoliste
Blätter in andere Arbeitsmappen kopieren	Module von Mappe zu Mappe kopieren