kein

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: kein

06.05.2007 14:42:00

Peter

AW: kein

06.05.2007 23:08:14

Michael

AW: kein

07.05.2007 15:24:00

Peter

AW: kein

07.05.2007 23:24:00

Michael

Hallo Susison,
versuch es einmal so: in ein allgemeine Modul kopieren

Option Explicit
Public Sub Kopieren()
Dim lZeile   As Long         ' For/Next Zeilen-Index
Dim WkSh     As Worksheet    ' das Tabellenblatt "Tabelle2"
Dim lLetzte  As Long         ' die letzte belegte Zeile im Blatt "Tabelle2"
   Application.ScreenUpdating = False ' Bildschirm-Update unterdrücken
   Set WkSh = Worksheets("Tabelle2")  ' Tabelle2 als Ausgabe festlegen
   lLetzte = IIf(WkSh.Range("A65536") <> "", 65536, _
      WkSh.Range("A65536").End(xlUp).Row) ' letzte belegte Zeile finden
   With Worksheets("Tabelle1") ' Tabelle1 ist die Eingabe
      For lZeile = 1 To .Range("A65536").End(xlUp).Row ' Zeile 1 bis Ende
         If .Range("A" & lZeile).Value <> "" Then  ' ist die Zelle gefüllt?
            If IsNumeric(.Range("A" & lZeile).Value) And _
               .Range("A" & lZeile).Value > 0 Then ' ist die Zelle nummerisch + > 0 ?
               lLetzte = lLetzte + 1  ' letzte belegte Zeile um 1 hochrechnen
               .Range("A" & lZeile & ":B" & lZeile).Copy Destination:= _
                  WkSh.Range("A" & lLetzte) ' Zellen A + B kopieren
            End If
         End If
      Next lZeile  ' nächste Zeile holen
   End With
   Application.ScreenUpdating = False  ' Bildschirm-Update wieder freigeben
End Sub

Gruß Peter

Hallo Michael,
wenn es irgendwie geht (und das tut es zu 99 %) arbeite ohne Select.
Aber versuch das beigefügte Makro:

Public Sub Kopieren()
Dim lZeile   As Long         ' For/Next Zeilen-Index
Dim WkSh     As Worksheet    ' das Tabellenblatt "Tabelle2"
Dim lLetzte  As Long         ' die letzte belegte Zeile im Blatt "Tabelle2"
   Application.ScreenUpdating = False ' Bildschirm-Update unterdrücken
   Set WkSh = Worksheets("Tabelle2")  ' Tabelle2 als Ausgabe festlegen
   lLetzte = IIf(WkSh.Range("A65536") <> "", 65536, _
      WkSh.Range("A65536").End(xlUp).Row) ' letzte belegte Zeile finden
   With Worksheets("Tabelle1") ' Tabelle1 ist die Eingabe
      For lZeile = 1 To .Range("A65536").End(xlUp).Row ' Zeile 1 bis Ende
         If .Range("A" & lZeile).Value <> "" Then  ' ist die Zelle gefüllt?
            If IsNumeric(.Range("A" & lZeile).Value) And _
               .Range("A" & lZeile).Value > 0 Then ' ist die Zelle nummerisch + > 0 ?
               lLetzte = lLetzte + 1  ' letzte belegte Zeile um 1 hochrechnen
               .Range("A" & lZeile & ":B" & lZeile).Copy
                  WkSh.Range("A" & lLetzte).PasteSpecial Paste:=xlPasteValues
            End If
         End If
      Next lZeile  ' nächste Zeile holen
   End With
   Application.ScreenUpdating = False  ' Bildschirm-Update wieder freigeben
End Sub

Gruß Peter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread