Thema Datum  Von Nutzer Rating
Antwort
28.10.2008 10:39:01 SINA44
NotSolved
Blau Aw:Sub für Datenimport erweitern
 28.10.2008 12:08:43 jh
NotSolved

Ansicht des Beitrags:
Von:
jh		 Datum:
28.10.2008 12:08:43		 Views:
1003		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Sub für Datenimport erweitern
Hallo,

ergänze deinen Code wie folgt:

Dim wksA As Worksheet
Dim wksMessdaten As Worksheet
Dim rngMessdaten As Range
' ...
For Each wksA In datei.Worksheets
If LCase$(wksA.Name) = "protokoll" Then
Set wksMessdaten = wksA
Set rngMessdaten = wksMessdaten.Range("O23:O51")
Exit For
ElseIf LCase$(wksA.Name) = "quer" Then
Set wksMessdaten = wksA
Set rngMessdaten = wksMessdaten.Range("A12:A42")
Exit For
End If
Next wksA
If wksMessdaten Is Nothing Then
MsgBox "Keine Messdaten gefunden", vbOKOnly + _
vbExclamation, "Fehler"
Else
rngMessdaten.Copy Destination:=ThisWorkbook.Sheets( _
"C95_HAM").Range("S3")
End If
datei.Close

Objekte sollte man übrigens - von wenigen Ausnahmen abgesehen -
immer als den korrekten Objekttyp deklarieren, hier also

Dim datei As Workbook

Und die korrekte Syntax für den Dateifilter in GetOpenFilename
lautet

dateiname = Application.GetOpenFilename( _
"Excel-Arbeitsmappe (*.xls), *.xls")

Gruß

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
28.10.2008 10:39:01 SINA44
NotSolved
Blau Aw:Sub für Datenimport erweitern
 28.10.2008 12:08:43 jh
NotSolved