Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Ausgeblendete Zeilen löschen - Makro

Betrifft: Ausgeblendete Zeilen löschen - Makro von: reto e.
Geschrieben am: 17.09.2004 07:33:50

Hallo zusammen!

Wie kann ich per Makro alle ausgeblendeten Zeilen löschen?
Und zwar habe ich eine Excel Liste von der aus ich diverse Tabellenblätter an verschiedene E-Mail Adressen sende. Dazu werden die Blätter einzeln exportiert und dann versandt. Jetzt möchte ich, dass vor dem versenden alle ausgeblendeten Zeilen des exportierten Tabellenblattes gelöscht werden. Also nicht in der Haupt-Mappe (das löschen müsste also vor .sendmail eingesetzt werden).

Versand-Code:

Private Sub Mail_an_Betriebe_Click()
    Dim Mldg, Stil, Titel, Antwort, Text1
        Mldg = "Möchten Sie fortfahren?"
        Stil = vbYesNo + vbQuestion + vbDefaultButton1
        Titel = "Formulare an alle Betriebe senden?"
        Antwort = MsgBox(Mldg, Stil, Titel)
    If Antwort = vbYes Then
        Dim sh As Worksheet
        Dim wb As Workbook
        Dim strdate As String
        Application.ScreenUpdating = False
        For Each sh In ThisWorkbook.Worksheets
            If sh.Range("a3").Value Like "*@*" Then
                strdate = Format(Now, "dd-mm-yy")
                sh.Copy
                Set wb = ActiveWorkbook
                With wb
                    .SaveAs sh.Name & " " & strdate & ".xls"
                    .UpdateLinks = xlUpdateLinksNever
                    .SendMail ActiveSheet.Range("a3").Value, _
                              "Neues Bestellformular"
                    .ChangeFileAccess xlReadOnly
                    Kill .FullName
                    .Close False
                End With
            End If
        Next sh
        Application.ScreenUpdating = True
    Else
    End If
End Sub


Besten Dank für Eure Hilfe

Gruss Reto E.
  


Betrifft: AW: Ausgeblendete Zeilen löschen - Makro von: nighty
Geschrieben am: 17.09.2004 17:03:44

hi reto :)

ein kleines beispiel,wobei die drei durch eine var ersetzt werden koennte mit dessen syntax

zeile1=3
Rows(zeile1 & ":" & zeile1)

gruss nighty

If Rows("3:3").EntireColumn.Hidden = False Then
Rows("3:3").Delete Shift:=xlUp
End If


 

Beiträge aus den Excel-Beispielen zum Thema "Ausgeblendete Zeilen löschen - Makro"