Thema Datum  Von Nutzer Rating
Antwort
11.09.2024 10:34:04 Kristin
NotSolved
Blau Zellbereich aus TAB X in TAB Y kopieren und unterhalb einfügen
 11.09.2024 12:17:15 Gast25539
Solved
11.09.2024 12:52:14 Kristin
NotSolved

Ansicht des Beitrags:
Von:
Gast25539		 Datum:
11.09.2024 12:17:15		 Views:
80		 Rating:
     
Antwort:
 Nein
Thema:
Zellbereich aus TAB X in TAB Y kopieren und unterhalb einfügen

Eine Lösung zu dem von dir geschilderten Problem wird fast jede Woche mindestens ein Mal erfragt. Es ist vermutlich sogar die am häufigsten vorkommende Frage überhaupt... "keine Lösung gefunden" ist schlichtweg gelogen.

Option Explicit

Sub Einfügen_Zuführung()
  
  Dim rngQuelle As Excel.Range
  Dim rngZiel As Excel.Range
  
  ' Quellbereich referenzieren
  Set rngQuelle = Worksheets("Makro").Rows("2:5")
  
  ' Zielbereich referenzieren
  With Worksheets("Inhalt")
    ' Spalte B von unten nach oben durchsuchen (erste Zelle mit Inhalt)
    Set rngZiel = .Cells(.Rows.Count, "B").End(xlUp)
    ' falls wir über der Zeile 47 gelandet sind; fangen wir in Zeile 47 an
    If rngZiel.Row < 47 Then
      Set rngZiel = .Cells(47, "B")
    End If
    ' wenn die Zelle Inhalt hat, referenzieren wir die leere Zelle darunter
    If Len(.Cells(rngZiel.Row, "B").Value) > 0 Then
      Set rngZiel = rngZiel.Offset(1)
    End If
  End With
  
  ' Quellbereich nach Zielbereich kopieren
  Call rngQuelle.Copy(Destination:=rngZiel.EntireRow)
  
End Sub

Das Makro geht davon aus, das in Spalte B durchweg Werte stehen.

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
11.09.2024 10:34:04 Kristin
NotSolved
Blau Zellbereich aus TAB X in TAB Y kopieren und unterhalb einfügen
 11.09.2024 12:17:15 Gast25539
Solved
11.09.2024 12:52:14 Kristin
NotSolved