Thema Datum  Von Nutzer Rating
Antwort
Rot VBA-Proramm
15.08.2022 18:20:31 Lena
NotSolved
15.08.2022 19:02:01 ralf_b
NotSolved
15.08.2022 19:11:42 Lena
NotSolved
15.08.2022 19:13:29 ralf_b
NotSolved
15.08.2022 19:15:13 Lena
NotSolved
15.08.2022 20:08:48 ralf_b
NotSolved
15.08.2022 20:23:08 Lena
NotSolved
15.08.2022 21:50:09 ralf_b
NotSolved
15.08.2022 22:56:04 ralf_b
NotSolved
16.08.2022 08:30:27 Lena
NotSolved
16.08.2022 17:17:10 ralf_b
NotSolved
19.08.2022 11:03:36 Lena
NotSolved
19.08.2022 20:18:07 ralf_b
NotSolved
22.08.2022 13:54:30 Lena
NotSolved
22.08.2022 18:00:41 ralf_b
NotSolved
23.08.2022 14:44:16 Lena
NotSolved
23.08.2022 18:30:27 ralf_b
NotSolved
26.08.2022 23:18:57 Lena
NotSolved
27.08.2022 08:59:32 ralf_b
NotSolved
27.08.2022 15:11:32 ralf_b
NotSolved
25.08.2022 17:08:48 ralf_b
NotSolved
28.08.2022 13:22:14 Lena
NotSolved
28.08.2022 13:33:53 ralf_b
NotSolved
28.08.2022 16:59:25 Lena
NotSolved
29.08.2022 20:33:56 Lena
NotSolved
29.08.2022 21:48:05 ralf_b
NotSolved
31.08.2022 17:45:24 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Lena
Datum:
15.08.2022 18:20:31
Views:
515
Rating: Antwort:
  Ja
Thema:
VBA-Proramm

Hallo Leute, ich bin Anfängerin in VBA und habe ein Problem, bei dem ihr mir helfen könnt.

 

Das wäre sehr Nett.

 

Ich habe eine Mappe 1 und habe in dieser eine Tabelle. Ich habe angefangen ein Makro zu schreiben um automatisch werte zu dieser Mappe 1 hinzuzufügen, idem ich die Mappe 2 auswähle und durch das Makro automatisch öffne. Aus dieser Mappe 2 würde ich gerne die Spalte B und D kopieren und in ein neues erzeugtes Tabellenblatt in Mappe 1 einfürgen. Jetzt hat Mappe 1 ein Tabellenblatt "Haupt" und ein erzeugtes neues Tabellenblatt "Neue Inhalte". Jeetzt würde ich gerne die Werte von "Neue Inhalte" aus Spalte A mit den Werten von "Haupt" aus Spalte E vergleichen. Also aud Dopplung prüfen. in Spalte A "Neue Inhalte" sind mehrer Werte drin wie in Spalte E "Haupt". Die Werte die nicht doppelt sind, sollen alle in das Tabellenblatt "Haupt" an das letzt Element angefügt werden, da ich zwei Spalten habe in " Neue Inhalte" soll zu dem Wert der nicht doppelt ist auch der gehörige Wert aus Spalte B in das "Haupt" Baltt gezogen werden in der Spalte F an das letzt Element natürlich.

Ich habe 2 Module mal angefangen aber funktionieren leider nicht ganz, bis zu einem Teil

Modul 1: Hier Habe ich jetzt nur die Spalte B kopiert und wollte es dann erweitern. Kopieren funktioniert soweit aber beim EInfügen erhalte ich immer eine Fehlermeldung

Sub DateiAuswählen()

'Deklarierung Variable
Dim Dateiname As Variant
'Workbook ist ein VBA-Objekt
Dim wbQuelle As Workbook

 

Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten

'Öffnet Datei-Fenster um Datei auszuwählen
Dateiname = Application.GetOpenFilename(FileFilter:="Excel-Dateien(*.xls*),*.xls*")

 

'Prüfen ob eine Datei ausgewählt wurde
If Dateiname <> False Then

'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(Filename:=Dateiname

'Daten koperen und einfügen
 wbQuelle.Worksheets(1).Columns("B:B").Copy

'Neues Tabellenblat erzeugen in akutellen Excel-Liste
ThisWorkbook.Worksheets.Add.Name = "Kopieter Inhalt"

Fehlermeldung erscheint hier
'Einfügen in die Mappe die das Marko enthält mit PastSpecial-Methode
ThisWorkbook.Worksheets("Neuer Inhalt").Range("A:A").PasteSpecial

 

'Arbeitsmappe schliesen und kein Änderungen vornehmen
wbQuelle.Close SaveChanges:=False


End If


End Sub

 

Modul 2: Einfügen geht auch nicht

Option Explicit

Sub DateiAuswählen1()

'Deklarierung Variable
Dim Dateiname As Variant
Dim Zeile As Integer
Dim Spalte As Integer
Dim ls, lz As Integer
Dim i As Integer
Dim s As Integer
'Workbook ist ein VBA-Objekt
Dim wbQuelle As Workbook

 

Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten

'Öffnet Datei-Fenster um Datei auszuwählen
Dateiname = Application.GetOpenFilename(FileFilter:="Excel-Dateien(*.xls*),*.xls*")

 

'Prüfen ob eine Datei ausgewählt wurde
If Dateiname <> False Then

'Arbeitsmappe öffnen
Set wbQuelle = Workbooks.Open(Filename:=Dateiname)
ThisWorkbook.Worksheets.Add.Name = "Kopieter 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


lz = Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row 'Die letzte Zeile der aktuellenSpalte bestimmen

 

 

For i = 2 To lz 'Schleife um die Zeilen der aktuellen Spalte zu durchlaufen
If Worksheets(1).Cells(i, 2) <> "" Then 'Prüfen ob etwas drinnen steht
Worksheets(1).Cells(i, 2).Copy 'wenn etwas drinnen steht, dann diesen Wert kopieren
ThisWorkbook.Worksheets("Neuer Inhalt").Cells(Zeile, 1).PasteSpecial 'xlPasteValues 'Wert einfügen
Zeile = Zeile + 1 'Immer eine Zeile weiterwandern zwecks einfügen
End If
Next i

Application.ScreenUpdating = True 'Bildschirmaktualisierung einschalten

 

 


'Arbeitsmappe schliesen und kein Änderungen vornehmen
'wbQuelle.Close SaveChanges:=False


End If


End Sub

Würde mich über eure hilfe freuen.

 

Grüße

Leni


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
Rot VBA-Proramm
15.08.2022 18:20:31 Lena
NotSolved
15.08.2022 19:02:01 ralf_b
NotSolved
15.08.2022 19:11:42 Lena
NotSolved
15.08.2022 19:13:29 ralf_b
NotSolved
15.08.2022 19:15:13 Lena
NotSolved
15.08.2022 20:08:48 ralf_b
NotSolved
15.08.2022 20:23:08 Lena
NotSolved
15.08.2022 21:50:09 ralf_b
NotSolved
15.08.2022 22:56:04 ralf_b
NotSolved
16.08.2022 08:30:27 Lena
NotSolved
16.08.2022 17:17:10 ralf_b
NotSolved
19.08.2022 11:03:36 Lena
NotSolved
19.08.2022 20:18:07 ralf_b
NotSolved
22.08.2022 13:54:30 Lena
NotSolved
22.08.2022 18:00:41 ralf_b
NotSolved
23.08.2022 14:44:16 Lena
NotSolved
23.08.2022 18:30:27 ralf_b
NotSolved
26.08.2022 23:18:57 Lena
NotSolved
27.08.2022 08:59:32 ralf_b
NotSolved
27.08.2022 15:11:32 ralf_b
NotSolved
25.08.2022 17:08:48 ralf_b
NotSolved
28.08.2022 13:22:14 Lena
NotSolved
28.08.2022 13:33:53 ralf_b
NotSolved
28.08.2022 16:59:25 Lena
NotSolved
29.08.2022 20:33:56 Lena
NotSolved
29.08.2022 21:48:05 ralf_b
NotSolved
31.08.2022 17:45:24 ralf_b
NotSolved