Thema Datum  Von Nutzer Rating
Antwort
08.03.2016 19:32:05 Jesse
NotSolved
Blau VBA Daten in neue Tabelle kopieren ohne Redundanz
 08.03.2016 21:00:33 Gast12082
NotSolved
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:
Gast12082		 Datum:
08.03.2016 21:00:33		 Views:
758		 Rating:
     
Antwort:
  Ja
Thema:
VBA Daten in neue Tabelle kopieren ohne Redundanz

Entschuldigt meine anstelle von "k" eigentlich "c"

also

Sub ZellenKopieren()

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

   Dim letzteZeileInS2 As Long
   letzteZeileInS2 = Sheets(2).UsedRange.SpeacialCells(xlCellTypeLastCell).Row

   Dim letzteZeileInS1 As Long

   For a = 2 To letzteZeileInS2
      letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
      c = letzteZeileInS1 +1

      For b = 2 To c
          IF Sheets(2).Cells(a,1).Value <> Sheets(1).Cells(b,1).Value Then
               Sheets(1).Cells(c,1) = Sheets(2).Cells(a,1)
               Sheets(1).Cells(c,2) = Sheets(2).Cells(a,5)
               ...
          End If
      Next b
   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
Blau VBA Daten in neue Tabelle kopieren ohne Redundanz
 08.03.2016 21:00:33 Gast12082
NotSolved
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