Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgeblendete Zeilen löschen - Makro

Ausgeblendete Zeilen löschen - Makro
17.09.2004 07:33:50
reto
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Zeilen löschen - Makro
nighty
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
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige