ChatGPT hilft bei Excel Makro - Was macht dieser Code?

Hallo, ChatGPT hilft mir grade mit den Makros, da ich mich aber nicht so gut mit Makros auskenne möchte ich alles verstehen. Einfache Sachen konnte ich bereits verstehen nun ist aber ein etwas längere und schwerere Code Stück ausgespuckt worden:

wb2.Sheets(1).Rows(i).Copy
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Die Funktion des Programms ist leider sehr kompliziert. Dieser Schnipsel sollte aber für das kopieren und einfügen zuständig sein. Wie kann ich beim "Paste" etwas hinzufügen das beim "Copy" oben noch nicht da war?

4 Antworten

DanKirpan

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

07.03.2023, 16:46

Zunächst wird mittels wb2.Sheets(1).Rows(i).Copy eine gesamte Zeile im ersten Blatt der als "wb2" festgelegten Arbeitsmappe kopiert. Der Codeschnipsel befindet sich vermutlich innerhalb einer For i=a to b Schleife um zeilenweise das gesammte Blatt durchzugehen.

Anschließend werden die Werte (.Pastespecial xlPasteValues) unter die letzte Zeile des als "ws" festgelegte Blattes eingefügt. ws.Cells(ws.Rows.Count, 1) ist die letzte benutzbare Zelle in Spalte A, End(xlUp) geht von unten nach oben alle Zeilen durch bis eine benutzte gefunden wird und es wird per .Offset(1) um eine Zeile verschoben.

Wie kann ich beim "Paste" etwas hinzufügen das beim "Copy" oben noch nicht da war?

Copy kopiert alles was vorhanden ist, was übernommen wird entscheidet die gewählte Paste-Option bspw. xlPasteAll für alles, xlPasteFormats für Formatierungen und xlPasteFormulas für Formeln.

germanils

07.03.2023, 15:45

ChatGPT kopiert auch nur irgendwas zusammen, da solltest Du Dich nicht drauf verlassen.

Lieber die Formeln nachschlagen, verstehen und selbst machen.

Oder echte Menschen fragen in Foren etc.

TheDonk

Beitragsersteller

07.03.2023, 15:47

Genau das tue ich grade ;)

Der Code funktioniert ja soweit so gut nur müsste ich den jetzt nur ergänzen wobei mir dabei das wissen fehlt

gnuman79

10.03.2023, 13:06

ChatGPT kopiert NICHT irgendetwas zusammen, sondern programmiert selbständig den Code nach deinen Wünschen. Je besser du deine Prompt definierst, desto besser ist der Code von ChatGPT.

Ohohnnnein

07.03.2023, 15:48

ChatGPT kopiert auch nur irgendwas zusammen, da solltest Du Dich nicht drauf verlassen.

Falsche Aussage mit gefährlichem Halbwissen

germanils

07.03.2023, 15:52

@Ohohnnnein

ja ja... Mir ist bewusst, dass es nicht "nur zusammenkopiert" ist. Aber Fakt ist, Chat GPT "versteht" die Formeln nicht, die es postet.

Ich bin länger in der IT tätig, als Du am Leben, mach Dir um mein "gefährliches Halbwissen" mal keine Sorgen.

Ohohnnnein

07.03.2023, 15:54

@germanils

Ich habe mehr Gehirnleistung als du, also halt dich da raus. Ich habe schon eigene KIs programmiert

germanils

07.03.2023, 15:55

@Ohohnnnein

LOL :-D Niedlich, made my day.

Ohohnnnein

07.03.2023, 16:33

@germanils

Bin gerade dabei eine viel bessere KI zu programmieren als ChatGPT, und du?

verreisterNutzer

07.03.2023, 19:40

@Ohohnnnein

@ Ohohnnnein du bist nur ein 11jähriger Troll, und so langsam reicht es.

WitchHunter0815

07.03.2023, 15:55

..Copy ballert das in die Zwischenablage dann wird im Ziel ein Range ausgewählt und die Zwischenablage dort hinein kopiert

https://learn.microsoft.com/en-us/office/vba/api/excel.range.end

https://learn.microsoft.com/en-us/office/vba/api/excel.range.offset

MonkeyKing

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

künstliche Intelligenz

07.03.2023, 15:44

Es ist gut, dass du das verstehen willst. Du kannst aber ChatGPT einfach bitten, den Code zu erklären.

Woher ich das weiß:Berufserfahrung – Erfahrung mit Einsatz von KI in der Softwareentwicklung

TheDonk

Beitragsersteller

07.03.2023, 15:46

das ist leider nicht so einfach da ChatGPT den ganzen Code (50 Zeilen) ausgespuckt hat und nun den ganzen Code zwar leicht zu verstehen erklärt aber mir bei genau diesem kleinen Code schnipsel nicht helfen kann und immer nicht hilfreiche antworten kommen

Ohohnnnein

07.03.2023, 15:49

@TheDonk

Dann sagst du er soll dir ganau den Schnipsel erklären

Ähnliche Beiträge

PDF Datei per Excel via Outlook senden?

Hallo Zusammen!

Ich habe folgenden Code zum erstellen einer PDF aus einem Sheet.

Der Code erstellt einen PDF namen und gibt dem Benuzter die Wahl zu speichern wo er will.. Danach kommt noch eine MSG Box und führt einen Datenbankbefehl aus usw.. Alles soweit ok..

Kann man zusätzlich die Datei noch in "Temp" speichern und per PDF senden? Als Betreff den Dateinamen ? Gerne würde ich auch den Emailempfänger direkt vorgeben und wenn möglich auch das senden ohne bestätigen ausführen.. geht das?

Sub speichern_unter_PDF_AV() a = MsgBox("WKZ ins Budget übertragen?", _ vbYesNo + vbQuestion, "WKZ buchen, PDF erstellen?") If a = vbYes Then 'Bereich kopieren Sheets("AV Markt").Range("AH14:AO14").Copy 'einfügen in erste freie Zeile in ausgabe Sheets("Datenbank AV").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Kopiermodus beenden Application.CutCopyMode = False Name = Range("Z1") Sheets("AV Markt").Activate Dim neuerDateiname As String neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "AV - " & Name & Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (.pdf),.pdf") If Not neuerDateiname = "Falsch" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=neuerDateiname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True Dim loI Dim WsShell Set WsShell = CreateObject("WScript.Shell") loI = WsShell.Popup("WKZ erfolgreich übertragen!" & vbCrLf _ & " " & vbCrLf _ & "AV bitte übermitteln" & vbCrLf _ & " " & vbCrLf _ & "AV´s müssen unterschrieben auf dem Laufwerk abgelegt werden!" & vbCrLf _ & "Danke", Title:=" Power Team") End If End If End Sub

...zum Beitrag

Wie kann ich in Excel eine Zeile mit VBA ausblenden und verschieben?

Hallo,

wenn eine 1 in der Zeile L oder M oder N steht, soll die Zeile ausgeblendet und im Blatt "Monat" eingefügt werden.

Was mache ich hier falsch?

Sub Copy()
  Sheets("Offen").Select
  LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

  For i = 1 To LetzteZeile
    If Cells(i, 12) = 1 Then
      Rows(i & ":" & i).Select
      Selection.Copy
      Sheets("Monat").Select
      LetzteZeileZwei = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
      LetzteZeileZwei = LetzteZeileZwei + 1
      Rows(LetzteZeileZwei & ":" & LetzteZeileZwei).Select
      ActiveSheet.Paste
      Sheets("Offen").Select
      Section.EntireRow.Hidden = True
    End If
  Next i
End Sub

...zum Beitrag

VBA Code: Zeilen mit Inhalt "leer" löschen?

Hallo an Alle,

kurz zur Erklärung: Ich füge Daten (immer 4 Zeilen) in eine "Datenbank" ein, allerdings, wenn nicht alles ausgefüllt wird, erscheint als Platzhalter "leer". Diese möchte ich gleich im Anschluss löschen, dass es keine weiteren Formeln durcheinander bringt bzw. weil er mir dann bei der nächsten Suche von einer leeren Zeile immer unterhalb der 4 Zeilen springt (wenn ich nicht mit "leer" fülle). :(

Ich habe jetzt schon mehreres probiert, aber entweder es löscht mir die Zeilen nicht oder es löscht auch Zeilen die eingefügt bleiben sollen... Bitte um fachmännische Hilfe. Bitte, DANKE!

Gerne umgehe ich auch "leer", wenn ich dann zumindest wirklich immer in der letzten freien Zeile bin...

Hier der momentan Code:

Range("N3:AE6").Select

Selection.Copy

Sheets("Datenbank").Select

Range("A520").Select

Cells(65000, 1).End(xlUp).Offset(1, 0).Select

Dim last As Integer

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

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

If Cells(last).Value = "leer" Then

Rows(last).Delete Shift:=xlUp

End If

Sheets("BestandsKunde").Select

Range("H43").Select

End Sub

Lg, B

...zum Beitrag

wie funktionert der Wverweis als VBA Code in Excel?

Hi Leute

Ich bin gerade dabei eine Tabelle in Excel mit VBA zu automatisieren.

Doch nun hänge ich an einem Wverweis den ich gerne in Excel ausführen möchte.

Es gibt eine Tabelle in der eine Bedingung abgefragt wird dort wird dann, wenn die Bedingung eintrifft, in der selben Zeile das Suchkritererutum festgelegt.

Und zwar ist dies eine ID, mit welcher dann in einer anderen Tabelle ein Name gesucht wird.

der gefundene Name soll dann in eine Tabelle 3 eingetragen werden.

Tabelle2.Range("B65536").End(xlUp).Offset(1, 0).Value = WorksheetFunction.HLookup([A49], Sheets("Tabelle7").[A1:ZZ50], 3, False)

das ist die Anweisung die eintritt wenn die Bedingung war ist und der Name gesucht und eingetragen werden soll.

Das Problem ist nur das irgendwas hier nicht stimmt und ich komm einfach nicht drauf. Es liegt aufjedenfall an der Funktion nach dem " = " also dem Wverweis.

Habt ihr eine Idee ?

...zum Beitrag

Excel: Verbessertes Logging mit VBA Makro?

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

...zum Beitrag

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zum Beitrag

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

...zum Beitrag

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zum Beitrag

Werte aus Tabelle mit Makro archivieren?

Hallo Zusammen, ich habe mir ein Makro aufgezeichnet, welches Werte aus einer Tabelle in ein anderes Tabellenblatt kopiert. Die Werte in der Ursprungstabelle ändere ich aber ständig und ich will, dass beim aktivieren des Makros, die zuvor kopierten Werte nicht überschrieben werden sondern neben den bereits "archivierten" Werten eingefügt wird. So sieht das Makro bis jetzt aus:

Sub test() ' test Makro Range("C5:D19").Select Selection.Copy Sheets("Tabelle1").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Tabelle2").Select Range("A7:B8").Select Application.CutCopyMode = False Selection.Copy Sheets("Tabelle1").Select Range("A18").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Tabelle2").Select Application.CutCopyMode = False Range("C7:C19").Select Selection.ClearContents Range("C7").Select Sheets("Tabelle1").Select Range("D2").Select Sheets("Tabelle2").Select End Sub

Problem ist, dass die alten Werte in dem neuen Tabellenblatt immer überschrieben werden. Könnt Ihr mir eine Funktion nennen, damit die Werte nicht überschrieben werden, sondern bei jedem mal ausführen des Makros die Werte in eine neue Spalte kopiert werden.

Vielen Dank im Voraus. Grüße Stephan

...zum Beitrag

Excel: Variablen in Makros einfügen und in Datenbank pflegen/ändern?

Hallo liebe Community,

ich habe diverse Makros in meiner Excel Datei und ich würde gerne das ganze etwas "smarter" gestalten und eine Art Datenbank mit VBA erstellen, um viele Sachen in der Arbeitsmappe dadurch ändern/pflegen zu können. Externe Leute sollen und müssen dann nicht mehr in die VBA Oberfläche und mühsam das Makro suchen, um dort Pfade oder Zeilen zu ändern, falls sich was ändert.

Meine Frage:

Ist es möglich in ein Makro bei VBA eine Art Variable einzubauen bzw. Pfad, wo Excel z.B. in Tabelle1 in Spalte A1 den Wert/Namen findet?

Beispiel Makro:

Statt Daten123.xlsx soll dann ein Bezug hin, wo Excel in Tabelle1 in A1 den Namen Daten123.xlsx findet. Ist sowas möglich?

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
Dim loletzte As Long

sPfad = "C:\Users\P\Desktop\Dateiordner\Unterordner\Daten123.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

Call Test

loletzte = Cells(Rows.Count, 1).End(xlUp).Row

wbQuelle.Worksheets(1).Range("A7:I" & loletzte).Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

...zum Beitrag

Excel VBA eine große Menge leere Zeilen löschen?

Hallo, ich lade eine menge Datensätze in eine Tabelle rein und dabei werden auch die leeren Zeilen zwischendurch mal reinkopiert. Diese möchte ich nun entfernen. Das gelingt mir mittlerweile auch. Das Problem ist, dass es zu lange dauert bei ca. 2800 leere Zeilen, da diese einzeln angeschaut werden und gelöscht. Mein bisheriger Code:

Function loescheLeerenBereichn()

Dim Zelle As Long
Dim LetzteZeile As Long
LetzteZeile = Sheets("Lieferung").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Zelle = LetzteZeile To 7 Step -1 ' In Range(Cells(7, 4), Cells(LetzteZeile, 4))
If Cells(Zelle, 3) = "" Or Cells(Zelle, 3) = "." Then
Rows(Zelle).EntireRow.Delete Shift:=xlUp 
End If
Next Zelle

End Function

Wie kann man das schneller programmieren?

...zum Beitrag

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!

...zum Beitrag

Excel-Makro hält plötzlich an

Hallo,
seit kurzem hakt es beim Ablauf eines Makros, obwohl ich dieses Makro schon lange ohne Probleme benutze.
Nach Anstoß des VBA-Makros erscheint immer mal wieder das Panel mit folgender Meldung:

"Ausführung des Codes wurde unterbrochen"
Fortsetzen Beenden Debuggen Hilfe

Klicke ich auf "Fortsetzen" läuft das Makro weiter, kann dann aber (an einer anderen Stelle) wieder hängenbleiben oder auch komplett durchlaufen.
Klicke ich auf "Debuggen" sehe ich die Stelle(n), an denen das Makro hängenblieb, das sind dann Anweisungen wie diese:

Application.Display Alerts = True
Sheets.Add before: = Sheets("Tabelle99")
Sheets("Tabelle88").Select

also ganz normale VBA-Anweisungen.
Und, es hakt immer an andren Stellen, so dass ich davon ausgehe, dass es nicht an der Code-Zeile selbst liegt.

Klicke ich auf "Hilfe" erscheint nach langer Suche nichts, gebe ich dann in dem angebotenen Suchfenster die Fehlermeldung als Suchstring ein, findet die Hilfe nichts dazu.

Was kann da sein?

LG PG

Der VBA-Code besteht aus 1 Hauptprogramm (Steuerprogramm) und ca. 10 Subroutinen, die Schlüsselworte in einem Excel-sheet suchen und dann Werte vom Spender-Sheet ins Schreibblatt übertragen.

Windows 7
Excel 2007

...zum Beitrag

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

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen