Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren von drei Zellen in eine andere Tabelle
06.04.2020 13:49:23 sahbine
NotSolved
06.04.2020 13:52:01 Gast64802
NotSolved

Ansicht des Beitrags:
Von:
sahbine		 Datum:
06.04.2020 13:49:23		 Views:
793		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren von drei Zellen in eine andere Tabelle
Hallo, ich habe ein Problem dabei den Inhalt von drei Zellen in eine andere Tabelle zu 
kopieren
 
Sub Button2_Click()
  Dim rng As Range
  Dim i As Long
  Dim a As Long
  Dim rng_dest As Range
  Application.ScreenUpdating = False
  i = 1
  Set rng_dest = Sheets("Invoice data").Range("B:D")
  ' Find first empty row in columns B:D on sheet Invoice data
  Do Until WorksheetFunction.CountA(rng_dest.Rows(i)) = 0
    i = i + 1
  Loop
  'Copy cells R6, R8, Q33 on sheet Invoice to Variant array
  Set rng = Sheets("Invoice").Range("R6", "R8", "Q33")
  ' Copy rows containing values to sheet Invoice data
  For a = 1 To rng.Rows.Count
    If WorksheetFunction.CountA(rng.Rows(a)) <> 0 Then
      rng_dest.Rows(i).Value = rng.Rows(a).Value
      'Copy total
      Sheets("Invoice data").Range("D" & i).Value = Sheets("Invoice").Range("Q33").Value
      'Copy Date
      Sheets("Invoice data").Range("B" & i).Value = Sheets("Invoice").Range("R6").Value
      'Copy Company name
      Sheets("Invoice data").Range("C" & i).Value = Sheets("Invoice").Range("R8").Value
      i = i + 1
    End If
  Next a
  Application.ScreenUpdating = True
End Sub
Das ist der VBA code. Ich bekomme einen Fehler an dieser Stelle: Set rng = Sheets("Invoice").Range("R6", "R8", "Q33")
 
Kann mir jemand erklären wie ich den korrigiere, bitte?
 
Wenn ich Range("R6:Q33") nutze, werden Inhalte mitübernomme die ich nicht in meine Tabelle haben möchte..

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 Kopieren von drei Zellen in eine andere Tabelle
06.04.2020 13:49:23 sahbine
NotSolved
06.04.2020 13:52:01 Gast64802
NotSolved