Thema Datum  Von Nutzer Rating
Antwort
Rot Zelle kopieren und in Aktuelle Zeile kopieren
 17.10.2016 00:51:55 Chrissy
NotSolved
17.10.2016 01:18:21 Werner
NotSolved
17.10.2016 01:32:37 Chrissy
NotSolved
17.10.2016 06:38:58 Crazy Tom
NotSolved
17.10.2016 08:24:52 Crazy Tom
*****
Solved
17.10.2016 10:40:03 Chrissy
NotSolved
17.10.2016 10:47:43 Crazy Tom
****
Solved
17.10.2016 10:56:24 Chrissy
Solved

Ansicht des Beitrags:
Von:
Chrissy		 Datum:
17.10.2016 00:51:55		 Views:
1254		 Rating:
     
Antwort:
  Ja
Thema:
Zelle kopieren und in Aktuelle Zeile kopieren

Hallo zusammen,

Ich hoffe hier kann mir nochmals geholfen werden.

ich habe ein makro welches mir nach eingabe einer Zahlenkombination in Tabelle1 entsprechend die Zeile in Tabelle2 ausliest und die gesamte Zeile in die Tabelle3 kopiert.

Nun möchte ich aber auch erreichen, dass eine bestimmte Zelle aus dem Tabellenblatt1 (deren inhalt sich immer wieder ändert) ebenfalls mit kopiert wird und an das Ende der jeweiligen Zeile im Tabellenblatt3  eingefügt wird.

 

hier soweit mein code :

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Dim lngZiel As Long
    Dim varSuche As Variant
    If Not Intersect(Target, Range("D7")) Is Nothing Then
        With Sheets("Ergebnisse")
        lngZiel = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        End With
        varSuche = Range("D7").Value
        With Sheets("BerechneteTeile")
            Set c = .Columns(32).Find(varSuche, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                .Rows(c.Row).Copy Sheets("Ergebnisse").Cells(lngZiel, 1)
                
                MsgBox "Bauteil wurde in die Stückliste aufgenommen"
            
            Call Limitierung
            Call Legogesicht
            
            
            Else
                MsgBox "Bauteil wurde nicht gefunden, bitte erneut scannen!"
            End If
        End With
    End If

Vielen Lieben Dank !!!

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 Zelle kopieren und in Aktuelle Zeile kopieren
 17.10.2016 00:51:55 Chrissy
NotSolved
17.10.2016 01:18:21 Werner
NotSolved
17.10.2016 01:32:37 Chrissy
NotSolved
17.10.2016 06:38:58 Crazy Tom
NotSolved
17.10.2016 08:24:52 Crazy Tom
*****
Solved
17.10.2016 10:40:03 Chrissy
NotSolved
17.10.2016 10:47:43 Crazy Tom
****
Solved
17.10.2016 10:56:24 Chrissy
Solved