Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.08.2022 18:20:31 |
Lena |
|
|
|
15.08.2022 19:02:01 |
ralf_b |
|
|
|
15.08.2022 19:11:42 |
Lena |
|
|
|
15.08.2022 19:13:29 |
ralf_b |
|
|
|
15.08.2022 19:15:13 |
Lena |
|
|
VBA-Proramm |
15.08.2022 20:08:48 |
ralf_b |
|
|
|
15.08.2022 20:23:08 |
Lena |
|
|
|
15.08.2022 21:50:09 |
ralf_b |
|
|
|
15.08.2022 22:56:04 |
ralf_b |
|
|
|
16.08.2022 08:30:27 |
Lena |
|
|
|
16.08.2022 17:17:10 |
ralf_b |
|
|
|
19.08.2022 11:03:36 |
Lena |
|
|
|
19.08.2022 20:18:07 |
ralf_b |
|
|
|
22.08.2022 13:54:30 |
Lena |
|
|
|
22.08.2022 18:00:41 |
ralf_b |
|
|
|
23.08.2022 14:44:16 |
Lena |
|
|
|
23.08.2022 18:30:27 |
ralf_b |
|
|
|
26.08.2022 23:18:57 |
Lena |
|
|
|
27.08.2022 08:59:32 |
ralf_b |
|
|
|
27.08.2022 15:11:32 |
ralf_b |
|
|
|
25.08.2022 17:08:48 |
ralf_b |
|
|
|
28.08.2022 13:22:14 |
Lena |
|
|
|
28.08.2022 13:33:53 |
ralf_b |
|
|
|
28.08.2022 16:59:25 |
Lena |
|
|
|
29.08.2022 20:33:56 |
Lena |
|
|
|
29.08.2022 21:48:05 |
ralf_b |
|
|
|
31.08.2022 17:45:24 |
ralf_b |
|
|
Von:
ralf_b |
Datum:
15.08.2022 20:08:48 |
Views:
536 |
Rating:
|
Antwort:
|
Thema:
VBA-Proramm |
"geht auch nicht " ist wenig aussagekräftig als Fehlermeldung.
Vielleicht als Hinweis. Bei Verwendung mehrerer Dateien muß man immer sicher gehen das man die richtige Datei anspricht.
deshalb verwendet man ja die Objektvariablen für die Workbooks. Wenn man dann einen Zellbezug( ohne das workbook) davor mit Worksheets("xyz").Cells(... verwendet, wird immer die gerade aktive Datei angesprochen. Kann funktionieren,muß aber nicht.
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
If Dateiname <> False Then
Set wsZiel = ThisWorkbook.Worksheets.Add
wsZiel.Name = "Kopierter Inhalt"
Zeile = 1
'Zeilenwert (ab wo eingefügt werden soll) der immer wieder auf 7 zurückgesetzt _
' wird, damit er wieder ab diesen Zeilenwert einfügt
Set wbQuelle = Workbooks.Open(Filename:=Dateiname) 'Arbeitsmappe öffnen
Set wsQuelle = wbQuelle.Worksheets(1)
'Die letzte Zeile der aktuellenSpalte bestimmen
lz = wsQuelle.Cells(wsQuelle.Rows.Count, 2).End(xlUp).Row
'Schleife um die Zeilen der aktuellen Spalte zu durchlaufen
For i = 2 To lz
If wsQuelle.Cells(i, 2) <> "" Then 'Prüfen ob etwas drinnen steht
'wenn etwas drinnen steht, dann diesen Wert übertragen
wsZiel.Cells(Zeile, 1).Value = wsQuelle.Cells(i, 2).Value
Zeile = Zeile + 1 'Immer eine Zeile weiterwandern zwecks einfügen
End If
Next i
'Arbeitsmappe schliesen und kein Änderungen vornehmen
'wbQuelle.Close SaveChanges:=False
End If
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
15.08.2022 18:20:31 |
Lena |
|
|
|
15.08.2022 19:02:01 |
ralf_b |
|
|
|
15.08.2022 19:11:42 |
Lena |
|
|
|
15.08.2022 19:13:29 |
ralf_b |
|
|
|
15.08.2022 19:15:13 |
Lena |
|
|
VBA-Proramm |
15.08.2022 20:08:48 |
ralf_b |
|
|
|
15.08.2022 20:23:08 |
Lena |
|
|
|
15.08.2022 21:50:09 |
ralf_b |
|
|
|
15.08.2022 22:56:04 |
ralf_b |
|
|
|
16.08.2022 08:30:27 |
Lena |
|
|
|
16.08.2022 17:17:10 |
ralf_b |
|
|
|
19.08.2022 11:03:36 |
Lena |
|
|
|
19.08.2022 20:18:07 |
ralf_b |
|
|
|
22.08.2022 13:54:30 |
Lena |
|
|
|
22.08.2022 18:00:41 |
ralf_b |
|
|
|
23.08.2022 14:44:16 |
Lena |
|
|
|
23.08.2022 18:30:27 |
ralf_b |
|
|
|
26.08.2022 23:18:57 |
Lena |
|
|
|
27.08.2022 08:59:32 |
ralf_b |
|
|
|
27.08.2022 15:11:32 |
ralf_b |
|
|
|
25.08.2022 17:08:48 |
ralf_b |
|
|
|
28.08.2022 13:22:14 |
Lena |
|
|
|
28.08.2022 13:33:53 |
ralf_b |
|
|
|
28.08.2022 16:59:25 |
Lena |
|
|
|
29.08.2022 20:33:56 |
Lena |
|
|
|
29.08.2022 21:48:05 |
ralf_b |
|
|
|
31.08.2022 17:45:24 |
ralf_b |
|
|