Thema Datum  Von Nutzer Rating
Antwort
29.08.2018 11:19:39 Marta
*****
Solved
29.08.2018 13:01:21 Gast51185
*
NotSolved
29.08.2018 16:36:05 Martin
NotSolved
Blau Zelleninhalt in andere Tabelle untereinander übertragen
 29.08.2018 17:31:50 Gast4051
NotSolved
30.08.2018 12:54:18 Marta
Solved

Ansicht des Beitrags:
Von:
Gast4051		 Datum:
29.08.2018 17:31:50		 Views:
497		 Rating:
     
Antwort:
  Ja
Thema:
Zelleninhalt in andere Tabelle untereinander übertragen		 
Option Explicit

Sub Example()
  
  Dim rngCell As Excel.Range
  Dim i As Long
  
  'erste Zelle für Ziel-Ausgabe
  Set rngCell = Tabelle2.Range("A2")
  
  For i = 1 To 6 'Zeilen-Index für Quelle
    
    If Tabelle1.Cells(i, 2) < 2 Then
      '~ Daten übertragen ~
      '   z.B.:   rngCell = Tabelle1.Cells(i, 1)             'man schreibt hier nach A2, A3, ..., A6 in Tabelle2
      '   oder:   rngCell.Offset(, 2) = Tabelle1.Cells(i, 4) 'man schreibt hier nach C2, C3, ..., C6 in Tabelle2
    End If
    
    Set rngCell = rngCell.Offset(1) 'eine Zeile tiefer rücken
  Next

End Sub

Nur so als Denkanstoß.

Man könnte sich anstatt des Range-Objekts auch einfach nur den Zeilen-Index hernehmen; gibt hier viele Wege das zu lösen ...

 

Grüße

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
29.08.2018 11:19:39 Marta
*****
Solved
29.08.2018 13:01:21 Gast51185
*
NotSolved
29.08.2018 16:36:05 Martin
NotSolved
Blau Zelleninhalt in andere Tabelle untereinander übertragen
 29.08.2018 17:31:50 Gast4051
NotSolved
30.08.2018 12:54:18 Marta
Solved