ExCel VBA Werte in anderes Tabellenblatt?

Hallo, kurze Frage zu VBA, falls sich da jemand findet der das gut kann ^^

Wir müssen zur Hausübung folgendes Szenario "erschaffen":
Wir haben die Tabelle "Buchungsmaske", die in Spalte B freie Felder zur Eingabe von Werten hat (Beispiel: Datum - Konto-Nummer - Kontobezeichnung...). Diese sollen dann durch die Schaltfläche "speichern" in das bereits vorhandene Tabellenblatt "Buchungen" gespeichert werden, und zwar in die nächste freie ZEILE.

Ich habe schon danach gesucht aber finde kaum anwendbares für diesen Sachverhalt in Foren, bzw. suche ich möglicherweise auch falsch.

Mein Code derzeit:
Dim Copy As Range, Paste As Range

Dim aWerte()

Set Copy = Sheets("Buchungsmaske").Range("B4:B20")

Set Paste = Sheets("Buchungen").Range("A1:U20")

If Sheets("Buchungsmaske").CheckBox1.Value = True Then

aWerte() = Copy

Paste = aWerte()

End If

Laufzeitfehler der immer auftaucht ist "438"

Danke für die Hilfe im Vorraus!

4 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

17.10.2020, 14:31

Die Lezte freie Zeile kannst du mit diesem Ausdruck ermitteln:

letzteZeile = Buchungen.Cells(Rows.Count, 1).End(xlUp).Row + 1

Woher ich das weiß:eigene Erfahrung

HorseRiver

Fragesteller

19.10.2020, 07:58

Ist letzteZeile eine Variable?
Und das daneben dann die Deklaration

geri3d

19.10.2020, 09:31

@HorseRiver

Ja letzteZeile ist eine frei erfundene Variable und daneben die Excelfunktion die die letzteZeile ermittelt.

geri3d

19.10.2020, 11:27

@HorseRiver

Ich habe gerade gelesen du brauchst Spalte B dann sieht es so aus:

letzteZeile = Buchungen.Cells(Rows.Count, 2).End(xlUp).Row + 1

Du kannst auch eine Schleife machen die die Werte einzeln kopiert, das dauert auch nicht viel länger und das mit dem Do Events ist ein guter Tipp.

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

17.10.2020, 15:46

Wo befindet sich die Schaltfläche "speichern" ?
Auf einer eigenen Userform ?
oder verwendet ihr die Excel "Eigen-Maske" zum ändern von Tabellen Inhalten ?
Dein Code hat diverse Fehler.
Übertragen in eine Zelle:
Ziel = Quelle
Sheets("Buchungen").Range("A1").Value = Userform.Textbox.Text
oder..
Sheets("Buchungen").Range("A1:A17") = _
Sheets("Buchungsmaske").Range("B4:B20")
==
Wann immer möglich, dann "Copy Paste" vermeiden.

RakonDark

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

17.10.2020, 14:47

also das erste was mir auffällt die sind unterschiedlich groß

zweitens, wieso gibt man die Range beim Ziel an ?

ich kenne das eher so

Range(“A1:E21”).Copy Destination:=Sheets(“AnotherSheet”).Range(“A1”)

mchawk777

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Computer

17.10.2020, 14:29

Falsche Herangehensweise:
Du musst erst mal feststellen, welche die erste, freie Zeile in der zu befüllenden Tabelle ist.
Du löst dies mit festen Vorgaben. Spätestens einer zweiten Befüllungsrunde fliegt Dir das um die Ohren.

HorseRiver

Fragesteller

17.10.2020, 14:33

Weiß ich auch, das ist ein aus einem Forum entstandener Vorschlag von eine Jahre alten Beitrag.
Weißt du die Verbesserung des Codes, so dass dieses Problem gelöst wird?
FUnktioniert jene von geri3d?

mchawk777

17.10.2020, 18:21

@HorseRiver

Das habe ich bereits umschrieben.
Sollte auch mit einfachen Programmierkenntnissen und bei Bedarf google zu programmieren sein.
Ein Tipp findet sich bereits unter den hier genannten Antworten - der aber nicht unbedingt funktionieren muss.

Ich würde eine Do While - Loop- Schleife programmieren, die von oben nach unten die Zellen einer Datenreihe prüft, die gefüllt sein muss.
Damit kann ich die nächste, leere Zeile ermitteln, wo ich die Daten anfügen kann.

Etwas in der Art dann auch für das Umkopieren / Verschieben.
Das dauert zwar prinzipiell länger als mit Skriptbasiertem Copy & Paste - arbeitet aber meiner Erfahrung nach zuverlässiger.
Vergiss nicht in den Schleifen mind. einen "DoEvents"-Befehl mit einzubauen, sonst sieht es bei längeren Läufen so aus, als ob Excel abgestürz wäre.

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

...zur Frage

Arbetismappe mit datum durchsuchen?

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

...zur Frage

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zur Frage

VBA aus zwei Dateien vergleichen und kopieren?

Hallo ich habe gerade folgende Situation:

Ich habe zwei Dateien die identisch Aufgebaut sind.

Datei1 wird auf SAP exportiert und sieht wie folgt aus: Spalte B User 1 - 80; Spalte M Anmeldedaten für die jeweiligen User.

Datei2 auf dem PC als Übersicht: Spalte F User1-80 und Spalte M die Anmeldedaten welche aus der exportierten Datei eingetragen und aktualisiert werden sollen. Nun kann es sein dass aus Datei ein zb User 2 oder 33 etc fehlt, deshalb soll er mit datei 2 vergleichen und zu den richtigen Usern die Anmeldedaten eintragen.

Ich habe da schon folgendes Programmiert aber es wird nichts eingetragen ich hoffe ihr könnt mir helfen:

Dim aktuelleZelle As Range
Stamm = datei2
Quelldatei = datei1
For Each aktuelleZelle In Sheets("SAP-Abfrage_GEN-User_SUIM.xls")
  If datei1.Sheets("SAP-Abfrage_GEN-User_SUIM.xls").Range("M29:M105") = datei2.Sheets("Tabelle1").Range("M2:M81") Then
    Workbooks(Quelldatei).Sheets("SAP-Abfrage_GEN-User_SUIM").Range("M29:M105").Copy
    Workbooks(Stamm).Sheets("Tabelle1").Range("M2:M81").PasteSpecial xlPasteValues
    Application.CutCopyMode = False

    End If
Next aktuelleZelle

...zur Frage

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zur Frage

VBA CODE Zellen nach bestimmten Textinhalt suchen und Zeile Färben?

Hallo, kann mir bitte jemanden mit dem Code behilflich sein?

Dieser Code sucht die Zellen in Spalte"A" nach bestimmten Textinhalt ab und bei Treffer löscht er die zughörige gesamte Zeile. Meine Frage: kann man diesen Code so ändern, dass anstatt die gefundene Zeile zu löschen nur mit einer Farbe z.B. Orange (44) färbt? Vielen Dank im Voraus.

Sub zeilenloeschen()
  Dim i As Long
  Dim letzteZeile As Long
  Dim suchBereich As Range
  Dim gefunden As Range
  Dim ersterTreffer As String
  Dim suchWert As String
  suchWert = "1" 'hier kommt dein Suchwert rein
  
  With ThisWorkbook.Sheets("Sheet4")
    letzteZeile = .Range("A" & Rows.Count).End(xlUp).Row
    Set suchBereich = .Range("A1:A" & letzteZeile)
    Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
    If Not gefunden Is Nothing Then
      ersterTreffer = gefunden.Address
      Do
        gefunden.Activate
        ActiveCell.EntireRow.Delete shift:=xlUp
        Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
      Loop While Not gefunden Is Nothing
    End If
  End With
End Sub

...zur Frage

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

MS Excel Makro Pausieren ohne Excel komplett zu pausieren?

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

Loop

End Sub

...zur Frage

Kopieren und auf andere Tabelle einfügen per VBA

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

...zur Frage

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

...zur Frage

VBA Objektvariable oder With Blockvariable nicht festgelegt?

Hallo habe folgenden Code:

Bekomme beim debuggen nach der Zeile "Objektvariable oder With-Blockvariable nicht festgelegt" Ich sehe mein Fehler leider nicht, hat jemand eine Ahnung?

Dim wbSAP As Workbook
Dim wbStamm As Workbook
Dim sapSheet As Worksheet
Dim stammSheet As Worksheet
Dim sapRange As Range
Dim stammRange As Range
Dim curSapCell As Range
Dim foundStammCell As Range
Dim nextStammRowNr As Integer
Set wbSAP = Workbooks.Open(ThisWorkbook.Path & "\SAP-Abfrage_GEN-User_SUIM.xls") 
Set wbStamm = ThisWorkbook


Set sapSheet = wbSAP.Sheets("SAP-Abfrage_GEN-User_SUIM") 
Set stammSheet = wbStamm.Sheets("Tabelle1")


Set sapRange = sapSheet.Range("B29:B105") 
Set stammRange = stammSheet.Range("F2:F81")


For Each curSapCell In sapRange  
   
foundStammCell = stammRange.Find(curSapCell.Value, LookAt:=xlWhole)     
If Not foundStammCell = curSapCell.Value Then  
       
stammSheet.Range("M" & nextStammRowNr) = sapSheet.Range("M" & curSapCell.Row).Value        
 nextStammRowNr = nextStammRowNr + 1     
Else        
stammSheet.Range("M" & foundStammCell.Row) = sapSheet.Range("M" & curSapCell.Row).Value     
End If
Next curSapCell

...zur Frage

For Steuervariabel wird bereits verwendet! was bedeutet das?

Hallo nochmals,

ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.

Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"

was bedeutet das ? heißt es, das man das "For" nur einmal in einem code gebrauchen kann ? wäre vielleicht ein "GoTo" befehl angebrachter? ( sprich: go to next cell, wenn die bedingung erfüllt ist )

hier ist der code:

sub kopieren( )

Dim Zelle As Range Dim Wert As Variant

Wert = ActiveSheet.Range("J16:j29")

With Sheets("Tabelle2") For Each Zelle In .Range("F6:G6")

If ((Range("J16").EntireRow.Hidden = True)

Or (Range("J16").EntireColumn.Hidden = True))

Or (Range("J16").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J17")

Else

Zelle.Value = ActiveSheet.Range("J16")

With Sheets("tabelle2")

For Each Zelle In .Range("H6:I6")

If ((Range("J17").EntireRow.Hidden = True)

Or (Range("J17").EntireColumn.Hidden = True))

Or (Range("J17").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J18")

Else

Zelle.Value = ActiveSheet.Range("J17")

End If End With End If Next Zelle End With End Sub

Danke schonmal für eure Tatkräftigen Hilfen :)))

Gruß Newb

...zur Frage

Fehlermeldung in VBA: Typen unverträglich?

Hallo,

ich kriege eine Fehlermeldung in VBA, finde allerdings keine Lösung, dies zu beheben. Könnt ihr mir helfen?

Sub Berichte()
    Dim Liste As Workbook
    Dim Bericht As Workbook
    Dim Dati As Variant
    
    Set Bericht = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    ActiveWorkbook.Sheets("Tabelle1").Columns("A:E").Copy
    
    Windows(Bericht).Activate
    Columns("A:E").Select
    ActiveSheet.Paste

End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen