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:
686		 Rating:
     
Antwort:
  Ja
Thema:
Erste leere Zeile in Spalte A finden
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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