Thema Datum  Von Nutzer Rating
Antwort
12.05.2016 22:07:42 Gast96822
NotSolved
Blau Einzelne Zellen, die Bedingung erfüllen, von Tabelle A in Tabelle B kopien
 13.05.2016 08:02:57 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
13.05.2016 08:02:57		 Views:
580		 Rating:
     
Antwort:
  Ja
Thema:
Einzelne Zellen, die Bedingung erfüllen, von Tabelle A in Tabelle B kopien

Guten Morgen,

eine Möglichkeit:

Option Explicit

Public Sub daten_auswerten_und_kopieren()
    Dim wksQuell As Worksheet
    Dim wksZiel As Worksheet
    Dim i As Integer
    Dim strValues(1) As String
    Set wksQuell = ThisWorkbook.Worksheets("Tabelle1") 'Anpassen
    Set wksZiel = ThisWorkbook.Worksheets("Tabelle2") 'Anpassen
    
    'Zieltabelle Leeren
    wksZiel.Cells.Clear
    
    'Überschrift setzen
    With wksZiel
        .Range("A1") = "Name"
        .Range("B1") = "Datum"
    End With
    
    'Daten auswerten
    With wksQuell
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 5) = "JA" Then
                strValues(0) = .Cells(i, 2)
                strValues(1) = .Cells(i, 3)
                Call daten_übertragen(wksZiel, strValues())
            End If
        Next i
    End With
    
    Set wksQuell = Nothing
    Set wksZiel = Nothing
End Sub

Private Sub daten_übertragen(ByRef wks As Worksheet, ByRef strValues() As String)
    Dim lngZeile As Long
    lngZeile = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row + 1
    With wks
        .Cells(lngZeile, 1) = strValues(0)
        .Cells(lngZeile, 2) = strValues(1)
    End With
End Sub

Gruß

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
12.05.2016 22:07:42 Gast96822
NotSolved
Blau Einzelne Zellen, die Bedingung erfüllen, von Tabelle A in Tabelle B kopien
 13.05.2016 08:02:57 SJ
NotSolved