Thema Datum  Von Nutzer Rating
Antwort
Rot Array
07.02.2020 12:43:41 Schellenberger
NotSolved
07.02.2020 13:33:22 Gast48690
NotSolved
10.02.2020 08:57:32 Schellenberger
NotSolved
10.02.2020 17:12:34 Gast12252
NotSolved
10.02.2020 17:30:09 Schellenberger
Solved

Ansicht des Beitrags:
Von:
Schellenberger
Datum:
07.02.2020 12:43:41
Views:
50
Rating: Antwort:
  Ja
Thema:
Array

Moin Leute,

ich möchte über ein Array mehrere Tabellenblätter ansprechen. Jedoch zeigt es mir bei der Ausführung einen Fehler an.
Ich gebe ein Datum über ein Inputbox. Dieser soll über ein Array in einer definierten Spalte nach dem Datum schauen und ggfs die Zeile kopieren.
Beim Array zeigt er mir einen Fehler an.
Hoffe ich konnte den Sachverhalt korrekt vermitteln.

Danke im Voraus!



Der Code:

 

Sub NEU()

Dim rng As Range
Dim DeinWert As Variant
Dim first As String
Dim mySheet As Variant



DeinWert = InputBox(prompt:="Geben Sie ein Datum:", Default:=Format("dd.mm.yyyy"))


ActiveWorkbook.Worksheets("Insgesamt").Range("A9:K100").Clear

For Each mySheet In Array("Tabelle1", "Tabelle2")

If DeinWert = "" Then Exit Sub
   DeinWert = CDate(DeinWert)
   
Set rng = mySheet.Range("G:G").Find(DeinWert) 'Hier bekomme ich die Fehlermeldung
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Insgesamt").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If

If DeinWert = "" Then Exit Sub
   DeinWert = CDate(DeinWert)
   
Next


End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Array
07.02.2020 12:43:41 Schellenberger
NotSolved
07.02.2020 13:33:22 Gast48690
NotSolved
10.02.2020 08:57:32 Schellenberger
NotSolved
10.02.2020 17:12:34 Gast12252
NotSolved
10.02.2020 17:30:09 Schellenberger
Solved