VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:07:34	Gast15185
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:33:35	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:41:13	Gast6623
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:52:58	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:57:21	Gast96842
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:07:59	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:26:12	Gast57185
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:34:49	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:39:39	Gast61151
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:50:44	Gast82992
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 10:23:36	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 13:54:46	Gast70020

Ansicht des Beitrags:

Von:
Gisela

Datum:
01.12.2016 09:07:59

Views:
731

Rating:

Antwort:

Thema:
Wenn Zelle = Ja, Dann Zelle XY kopieren

Hallo

dann schau mal ob das so passt

zu starten aus Tabelle1

Sub test()
    Dim lngZiel As Long
    Dim strFirst As String
    Dim c As Range
    With Sheets("Tabelle2")
        lngZiel = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        If lngZiel <= 52 Then lngZiel = 52
        Set c = Columns(9).Find("ja", LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            strFirst = c.Address
            Do
                .Cells(lngZiel, 3).Value = Cells(c.Row, 4).Value
                lngZiel = lngZiel + 1
                Set c = Columns(9).FindNext(c)
            Loop While Not c Is Nothing And c.Address <> strFirst
        End If
    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
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:07:34	Gast15185
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:33:35	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:41:13	Gast6623
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:52:58	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 08:57:21	Gast96842
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:07:59	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:26:12	Gast57185
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:34:49	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:39:39	Gast61151
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 09:50:44	Gast82992
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 10:23:36	Gisela
Wenn Zelle = Ja, Dann Zelle XY kopieren	01.12.2016 13:54:46	Gast70020