Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Daten nicht einfügen
 12.05.2021 11:13:30 Almir
NotSolved
12.05.2021 13:23:10 Gast56104
NotSolved

Ansicht des Beitrags:
Von:
Almir		 Datum:
12.05.2021 11:13:30		 Views:
1381		 Rating:
     
Antwort:
  Ja
Thema:
Doppelte Daten nicht einfügen

Hallo zusammen,

ich habe folgendes Problem: Und zwar habe ich einen Code geschrieben, der mir Daten von dem vorherigen Tabellenblatt auf das aktive Tabellenblatt kopiert und eingefügt, jedoch soll dieser Code doppelte Daten nicht einfügen und genau dieser Code fehlt mir und ich weiß deswegen nicht, wie ich den verfassen soll.

Zu den Eckdaten kurz: Die Daten die Kopiert werden sollen gehen von der Zelle A3:B100 und werden auf das Tabellenblatt mit dem Namen "Gesamt" in die nächste freie Zelle eingefügt.

Kann mir da jemand helfen, wäre euch sehr dankbar! smiley (Ich blende mal den jetzigen Code ein)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub CopyData()
 
asi = ActiveSheet.Index
nasi = Sheets(asi).Name
    If asi = 1 Then
            MsgBox "Zu " & nasi & " gibt es keine vorherige Tabelle!", _
            48, Environ("UserName")
        Exit Sub
    End If
asiv = ActiveSheet.Index - 1
nasiv = Sheets(asiv).Name
 
mgb = MsgBox("Daten werden kopiert von " & nasiv & " nach " & nasi & Chr(13) & _
"Ist das OK?", 36, Environ("UserName"))
If mgb = 7 Then Exit Sub ' 7 = nein
 
 
    Dim lngLastRow1 As Long, lngLastRow2 As Long
 
 
    lngLastRow1 = Sheets(nasiv).Cells(Rows.Count, 1).End(xlUp).Row
 
    lngLastRow2 = Sheets(asi).Cells(Rows.Count, 1).End(xlUp).Row
 
    'wenn lngLastRow1 = 1 wird, dann gibt es nur die Spaltenbeschriftung und keine Daten
 
    If lngLastRow1 > 1 Then
 
        Sheets(nasiv).Range("A3:B100" & lngLastRow1).copy
 
        Sheets(asi).Range("A" & lngLastRow2 + 1).PasteSpecial xlValues
        Application.CutCopyMode = False
 
    End If
 
    'Zelle markieren
 
    With Sheets(asi)
 
        .Activate
 
        .Range("A" & lngLastRow1 + lngLastRow2).Select
 
    End With
 
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Doppelte Daten nicht einfügen
 12.05.2021 11:13:30 Almir
NotSolved
12.05.2021 13:23:10 Gast56104
NotSolved