Thema Datum  Von Nutzer Rating
Antwort
16.09.2016 16:11:25 Andi
NotSolved
16.09.2016 20:04:26 Gast62866
NotSolved
Rot Spalten aus anderem Excel-File kopieren
17.09.2016 00:11:07 Sebastian
NotSolved

Ansicht des Beitrags:
Von:
Sebastian
Datum:
17.09.2016 00:11:07
Views:
678
Rating: Antwort:
  Ja
Thema:
Spalten aus anderem Excel-File kopieren
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Erst mal der Übersicht halber...
 
Sub CommandButton2_Click()
 
Dim WbDatei1 As Workbook
Dim WbDatei2 As Workbook
Dim strFilter As String
Dim Wert1 As Variant
Dim Wert2 As Variant
Dim i As Integer
 
Set WbDatei2 = ThisWorkbook
 
'** Dateifilter definieren
 
strFilter = "Excel-Dateien(*.xls*), *.xls*"
 
'** Laufwerk und Pfad definieren, welcher geöffnet werden soll
 
ChDir "\\XXXXX\" ' muss noch angegeben werden '** Dateifilter definieren
 
strFilter = "Excel-Dateien(*.xls*), *.xls*"
'** Den im Dialogfeld gewählten Namen auslesen
 
strFileName = Application.GetOpenFilename(strFilter)
 
'** Prüfen, ob eine gültige Datei ausgewählt wurde
 
If strFileName = False Then Exit Sub
 
'** Gewählte Datei öffnen
 
Set ActiveWorkbooks = Workbooks.Open(strFileName)
 
'** Hinweis ausgeben
 
MsgBox "Die Datei '" & ActiveWorkbook.name & "' wurde geöffnet.", vbInformation, "Hinweis"
 
With Worksheets("Format") For i = 1 To .Columns.Count If Cells(1, i) = "Anlage" Then
 
Wert1 = Range(Cells(2, i), Cells(1000, i)) End If
 
If Cells(1, i) = "Preis pro kwh" Then
Wert2 = Range(Cells(2, i), Cells(1000, i)) End If
Next i
End With
 
'Wert1 = Cells(2, "A") 'Daten auslesen
 
ActiveWorkbooks.Close SaveChanges:=False
 
'schliesst File ohne zu speichern
 
Set WbDatei2 = ThisWorkbook
 
With ThisWorkbook.Worksheets("Tabelle1")
For i = 1 To .Columns.Count If Cells(1, i) = "Anlage" Then
 
Range(Cells(2, i), Cells(1000, i)) = Wert1 End If If Cells(1, i) = "Preis pro Kwh" Then Range(Cells(2, i), Cells(1000, i)) = Wert2
End If
Next i
End
With Application.DisplayAlerts = True
 
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:



  • 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
16.09.2016 16:11:25 Andi
NotSolved
16.09.2016 20:04:26 Gast62866
NotSolved
Rot Spalten aus anderem Excel-File kopieren
17.09.2016 00:11:07 Sebastian
NotSolved