Thema Datum  Von Nutzer Rating
Antwort
05.12.2022 08:57:48 ulli
NotSolved
05.12.2022 22:22:05 ralf_b
NotSolved
05.12.2022 22:36:48 Gast34433
NotSolved
05.12.2022 23:14:48 ulli
NotSolved
06.12.2022 02:27:58 ralf_b
NotSolved
06.12.2022 07:50:59 Gast34428
NotSolved
06.12.2022 13:52:14 ralf_b
Solved
Blau Fehler in meinem Modul_AutoRng
06.12.2022 15:39:23 ulli
NotSolved
06.12.2022 16:17:23 ulli
NotSolved
06.12.2022 16:36:34 ralf_b
NotSolved
06.12.2022 22:38:01 Ulli
NotSolved
07.12.2022 09:14:00 ulli
NotSolved
09.12.2022 10:44:18 ulli
NotSolved
09.12.2022 11:30:24 ralf_b
NotSolved
09.12.2022 13:14:26 Gast12378
NotSolved
09.12.2022 14:20:48 ralf_b
NotSolved
09.12.2022 15:29:52 ralf_b
NotSolved
09.12.2022 23:28:17 ulli
NotSolved
09.12.2022 23:36:42 ralf_b
NotSolved
10.12.2022 11:05:56 ulli
NotSolved
10.12.2022 15:49:46 ralf_b
NotSolved
10.12.2022 18:15:44 ulli
NotSolved
10.12.2022 18:39:40 ralf_b
NotSolved
Blau Blau update
 10.12.2022 19:00:34 Gast95702
NotSolved

Ansicht des Beitrags:
Von:
ulli		 Datum:
06.12.2022 15:39:23		 Views:
362		 Rating:
     
Antwort:
  Ja
Thema:
Fehler in meinem Modul_AutoRng

Hallo,  bei Herber muss ich noch reinschauen.

Ich habe so geändert das copy in ein neues Blatt kommen.

Dieses wird dann korrekt bearbeitet, und das Blatt z.B D2 wieder gelöscht.

Alles supi - nur das die Exceltabelle auch umbennant wird.
So komm ich von einem Problem zu nächsten - aber auch dem End Sub immer näher smiley

Auf jeden Fall vielen Dank für deine Hilfe

Das habe ich bislang geändert:

?
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
'############ Zellbereich Bearbeiten
 
    Application.ActiveSheet.Copy After:=Worksheets("Testseite") 'Kopiert in neues Blatt CSV-Transpot
    Application.ActiveSheet.Cells.Clear                      'löscht alle Zellen in neuem Blatt
    Application.ActiveSheet.Cells.Formats    '????und nach A1?? 'Blatt Formatierung. An sich unnötig
                                
    'MsgBox "3. " & ActiveSheet.Name
    'MsgBox WorkRng.Address  '+++ zeigt Zellauswahl an +++
    WorkRng.Copy Application.ActiveSheet.Range("A1") 'Kopiert "Bereich/Range" ab A1 in neuem Blatt
    Application.DisplayAlerts = False   'WarnMeldung wenn überschreiben ? AUS
     
 ' ok: Bereich ist kopiert in neues Blatt   -nun muss das Blatt als Workbook gespeichert werden und _
                                         das Blatt gelöscht werden.
                                   
''     ActiveSheet.Move
''     ActiveWorkbook.SaveAs Filename:="CSV-Export.csv", FileFormat:=xlCSV
''     ActiveWindow.Close
 
    Application.ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, _
         CreateBackup:=False, Local:=True    'Speichert im Pfad der Exceldatei
     
    'Application.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & CSVName, FileFormat:=xlCSV, _
        CreateBackup:=False, Local:=True    'Speichert im Pfad der Exceldatei
    Application.DisplayAlerts = False    'WarnMeldung überschreiben ? Ein
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    ' Sheets(Worksheetx).Select
     
'##################
     
    Call MessageBox_zeitgesteuert(CSVName, lngDauer, AzBuecher)
Fehler:
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
05.12.2022 08:57:48 ulli
NotSolved
05.12.2022 22:22:05 ralf_b
NotSolved
05.12.2022 22:36:48 Gast34433
NotSolved
05.12.2022 23:14:48 ulli
NotSolved
06.12.2022 02:27:58 ralf_b
NotSolved
06.12.2022 07:50:59 Gast34428
NotSolved
06.12.2022 13:52:14 ralf_b
Solved
Blau Fehler in meinem Modul_AutoRng
06.12.2022 15:39:23 ulli
NotSolved
06.12.2022 16:17:23 ulli
NotSolved
06.12.2022 16:36:34 ralf_b
NotSolved
06.12.2022 22:38:01 Ulli
NotSolved
07.12.2022 09:14:00 ulli
NotSolved
09.12.2022 10:44:18 ulli
NotSolved
09.12.2022 11:30:24 ralf_b
NotSolved
09.12.2022 13:14:26 Gast12378
NotSolved
09.12.2022 14:20:48 ralf_b
NotSolved
09.12.2022 15:29:52 ralf_b
NotSolved
09.12.2022 23:28:17 ulli
NotSolved
09.12.2022 23:36:42 ralf_b
NotSolved
10.12.2022 11:05:56 ulli
NotSolved
10.12.2022 15:49:46 ralf_b
NotSolved
10.12.2022 18:15:44 ulli
NotSolved
10.12.2022 18:39:40 ralf_b
NotSolved
Blau Blau update
 10.12.2022 19:00:34 Gast95702
NotSolved