Thema Datum  Von Nutzer Rating
Antwort
Rot RngCells.Resize und Rangeobject.Resize
 13.06.2019 10:21:25 faten
NotSolved
13.06.2019 10:44:50 Werner
NotSolved
13.06.2019 12:07:12 Gast41993
Solved

Ansicht des Beitrags:
Von:
faten		 Datum:
13.06.2019 10:21:25		 Views:
781		 Rating:
     
Antwort:
  Ja
Thema:
RngCells.Resize und Rangeobject.Resize

hallo zusammen, 

 

ich möchte gerne dass meine Makro im Tabellenblatt "Tabelle 1" die letzte leere zeile findet und ab da dann die Werte aus der Tabelle "rohdaten" einfügt. 

für das Suchen der leeren zelle wurde mir hier schon super weiter geholfen und das funktioniert auch soweit, jedoch habe ich probleme beim fügen der Werte. 

mit dem Befehl rngCells.Resize werden nur einige Zellen reinkopiert aber bräuchte dass diese alle Spalten und Zellen in den Rohdaten einfügt. 

 

Vielen Dank im Voraus!

 

Private Sub sucheneinfügen()
  Dim rngCell As Excel.Range
  Dim WkSh_Q   As Worksheet ' Tabellenblatt Quelle / Herkunft
Dim WkSh_Z   As Worksheet ' Tabellenblatt Ziel
Dim lZeile   As Long      ' For/Next Zeilen-Index
Dim iSpalte  As Long      ' For/Next Spalten-Index


   Set WkSh_Q = Worksheets("Rohdaten")  ' <= Namen anpassen
   Set WkSh_Z = Worksheets("Tabelle1")  ' <= Namen anpassen
   
   
 With Worksheets("Tabelle1")

    Set rngCell = .Range(.Cells(1, "A").End(xlDown), .Cells(.Rows.Count, "A").End(xlUp))
    'im Falle eines Bereichs nehmen wir die erste Zelle
    If rngCell.Cells.Count > 1 Then Set rngCell = rngCell(1)
  End With
   
  rngCell.Select 'letzte Zelle mit Inhalt
rngCell.Offset(1).Select  'letzte Zelle OHNE Inhalt



 For iSpalte = 3 To 14 Step 1
      For lZeile = 7 To 1000
      rngCell.Resize(5).Value = WkSh_Q.Cells(lZeile, iSpalte).Value
       Next lZeile
            Next iSpalte

    
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
Rot RngCells.Resize und Rangeobject.Resize
 13.06.2019 10:21:25 faten
NotSolved
13.06.2019 10:44:50 Werner
NotSolved
13.06.2019 12:07:12 Gast41993
Solved