Thema Datum  Von Nutzer Rating
Antwort
08.03.2016 19:32:05 Jesse
NotSolved
08.03.2016 21:00:33 Gast12082
NotSolved
Rot So was?
 09.03.2016 08:28:19 Gast55150
Solved
09.03.2016 09:08:17 Jesse
NotSolved
09.03.2016 09:13:03 Jesse
NotSolved
09.03.2016 09:28:48 Gast42434
Solved
09.03.2016 11:26:49 Jesse
NotSolved
09.03.2016 20:51:43 Jesse
NotSolved

Ansicht des Beitrags:
Von:
Gast55150		 Datum:
09.03.2016 08:28:19		 Views:
529		 Rating:
     
Antwort:
 Nein
Thema:
So was?		 
Sub ZellenKopieren()

Dim a As Long
Dim b As Long
Dim c As Long

Dim letzteZeileInS2 As Long
Dim letzteZeileInS1 As Long

Dim rngGefunden As Range
   
   letzteZeileInS2 = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
   letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
   
   'durch die Spalte 1 in Sheets(2)
   For a = 2 To letzteZeileInS2
      'suche Wert Sheets(2).Cells(a, 1) in Sheets(1)
      Set rngGefunden = Sheets(1).Columns(1).Find(Sheets(2).Cells(a, 1).Value)
      'Treffer
      If Not rngGefunden Is Nothing Then
         'ist da
      Else
         'erhöhe Zielzeile
         letzteZeileInS1 = letzteZeileInS1 + 1
         'schreibe von (2) nach (1)
         Sheets(1).Cells(letzteZeileInS1, 1) = Sheets(2).Cells(a, 1)
         Sheets(1).Cells(letzteZeileInS1, 2) = Sheets(2).Cells(a, 5)
      End If
   Next a

End Sub

 

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
08.03.2016 19:32:05 Jesse
NotSolved
08.03.2016 21:00:33 Gast12082
NotSolved
Rot So was?
 09.03.2016 08:28:19 Gast55150
Solved
09.03.2016 09:08:17 Jesse
NotSolved
09.03.2016 09:13:03 Jesse
NotSolved
09.03.2016 09:28:48 Gast42434
Solved
09.03.2016 11:26:49 Jesse
NotSolved
09.03.2016 20:51:43 Jesse
NotSolved