Thema Datum  Von Nutzer Rating
Antwort
18.09.2020 13:48:46 Marcel
**
NotSolved
18.09.2020 15:38:33 ralf_b
NotSolved
Rot update
18.09.2020 16:14:47 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
18.09.2020 16:14:47		 Views:
791		 Rating:
     
Antwort:
  Ja
Thema:
update
?
1
2
3
4
einmal hier
 
'** Das Argument erstellen
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Address(, , xlR1C1)

 

einmal da

?
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
Function Zelle_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, bezug As String
Dim i As Long
 
'** Angaben zur auszulesenden Zelle
 
pfad = Range("C2").Value     '"F:\Excel\Beispiele"
blatt = "Tabelle1"
i = 1
 
Do While Range("B" & i) <> ""  'ich hoffe deine Spalte B ist nicht unendlich voll ;)
  
 If Len(Range("B" & i).Value) > Len(".xlsx") Then
     
    datei = Range("B" & i) 'geschlossene Mappe2.xls"
         
    '** Eintragen in Zelle
    Cells(7, "G").Value = GetValue(pfad, datei, blatt, "Y1333")
    Cells(7, "H").Value = GetValue(pfad, datei, blatt, "Y1334")
    Cells(7, "I").Value = GetValue(pfad, datei, blatt, "Y1335")
    Cells(7, "J").Value = GetValue(pfad, datei, blatt, "Y1336")
    Cells(7, "K").Value = GetValue(pfad, datei, blatt, "Y1337")
 
  End If
  i = i + 1
   
 Loop
  
End Function

 

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
18.09.2020 13:48:46 Marcel
**
NotSolved
18.09.2020 15:38:33 ralf_b
NotSolved
Rot update
18.09.2020 16:14:47 ralf_b
NotSolved