Thema Datum  Von Nutzer Rating
Antwort
05.08.2019 11:11:21 Andrea
NotSolved
Blau Alle Zeilen Markieren und Zusammenführen
 05.08.2019 13:04:42 Werner
*****
Solved
05.08.2019 15:05:54 Gast78100
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
05.08.2019 13:04:42		 Views:
435		 Rating:
     
Antwort:
 Nein
Thema:
Alle Zeilen Markieren und Zusammenführen

Hallo Andrea,

so:

Sub GesamtAnlagenkatastererzeugen()
Dim sBlattname As String, ws As Worksheet, loLetzte As Long
    
'Datenblatt Vorlage Tanklager kopieren
sBlattname = "Kataster" & Format(Now, "YYYYMMDD")

Application.ScreenUpdating = False

'Prüfung ob Blatt vorhanden
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = sBlattname Then
        MsgBox "Es existiert bereits ein Datenblatt mit dem Namen Kataster." & vbLf & "Dieses bitte umbenennen oder löschen.", , "Meldung"
        Exit Sub
    Else
        ThisWorkbook.Worksheets("Vor_Kataster").Copy before:=Sheets(1)
        ActiveSheet.Name = sBlattname
        Exit For
    End If
Next ws

'Einzeldatenblätter wenn Datebblatt mit "Ue_" beginnt
For Each ws In ThisWorkbook.Worksheets
    If ws.Name Like "Ue_*" Then
        With ws
            loLetzte = .Cells(.Rows.Count, 15).End(xlUp).Row
            .Rows("1:" & loLetzte).Copy
            With Worksheets(sBlattname)
                loLetzte = .Cells(.Rows.Count, 15).End(xlUp).Offset(1).Row
                .Rows(loLetzte).PasteSpecial Paste:=xlPasteAll
            End With
        End With
    End If
Next ws
        
Application.CutCopyMode = False
End Sub

 

Gruß Werner

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
05.08.2019 11:11:21 Andrea
NotSolved
Blau Alle Zeilen Markieren und Zusammenführen
 05.08.2019 13:04:42 Werner
*****
Solved
05.08.2019 15:05:54 Gast78100
NotSolved