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:
1076		 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:

 

?
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
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 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 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