Thema Datum  Von Nutzer Rating
Antwort
27.11.2018 12:55:48 Meli
NotSolved
27.11.2018 13:19:08 Gast89822
NotSolved
27.11.2018 13:55:25 Gast9620
NotSolved
Blau Erste leere Zeile in Spalte A finden
 27.11.2018 15:21:33 Gast89822
NotSolved

Ansicht des Beitrags:
Von:
Gast89822		 Datum:
27.11.2018 15:21:33		 Views:
530		 Rating:
     
Antwort:
  Ja
Thema:
Erste leere Zeile in Spalte A finden		 
Sub Tast()
'a)  Range.copy hat nur einen optionalen Parameter, daher keine Auswahl.
'    Folgt gültiger Range auf den Befehl wird der genommen

'b) der Punkt vor dem Objekt zeigt auf das übergeordnete Objekt (jeweiliges With).
'   Ohne Punkt wird immer das Parent (aktuelles Fenster/Arbeitsblatt) genommen

'c) genügt als Dest die 1. Zelle wohin (Resize macht die Methode selbstplaudernd)

   
   With Sheets("Bereich II")
      If .Range("A" & .Rows.Count).End(xlUp).Row > 1 Then
         Range(.Range("A2"), .Range("AB" & .Rows.Count).End(xlUp)).Copy _
         Sheets("Datenpool").Range("A2")
      End If
      'Test
      Debug.Print .Range("A1").Parent.Name
      Debug.Print Range("A1").Parent.Name
   End With
   
   With Sheets("Bereich III")
      If .Range("A" & .Rows.Count).End(xlUp).Row > 1 Then
         Range(.Range("A2"), .Range("AB" & .Rows.Count).End(xlUp)).Copy _
         Sheets("Datenpool").Range("A" & .Rows.Count).End(xlUp).Offset(1)
      End If
   End With

   With Sheets("Bereich IV")
      If .Range("A" & .Rows.Count).End(xlUp).Row > 1 Then
         Range(.Range("A2"), .Range("AB" & .Rows.Count).End(xlUp)).Copy _
         Sheets("Datenpool").Range("A" & .Rows.Count).End(xlUp).Offset(1)
      End If
   End With

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2018 12:55:48 Meli
NotSolved
27.11.2018 13:19:08 Gast89822
NotSolved
27.11.2018 13:55:25 Gast9620
NotSolved
Blau Erste leere Zeile in Spalte A finden
 27.11.2018 15:21:33 Gast89822
NotSolved