Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.09.2014 09:10:02 |
Jonas |
|
|
Worksheet in neues Workbook kopieren und in neuem Workbook alle ausgeblendeten löschen |
24.09.2014 10:55:28 |
Gast33482 |
|
|
|
24.09.2014 11:11:51 |
Jonas |
|
|
|
24.09.2014 18:36:41 |
Gast33482 |
|
|
Von:
Gast33482 |
Datum:
24.09.2014 10:55:28 |
Views:
817 |
Rating:
|
Antwort:
|
Thema:
Worksheet in neues Workbook kopieren und in neuem Workbook alle ausgeblendeten löschen |
'Module
Option Explicit
Public Sub copy_values()
Call copy_valuesI(ActiveSheet)
End Sub
Public Sub delete_hiddenValues()
Call delete_hiddenValuesI(ActiveSheet)
End Sub
Public Sub both_copy_delete()
Dim wks As Excel.Worksheet
Call copy_valuesI(ActiveSheet, wks)
Call delete_hiddenValuesI(wks)
End Sub
'////////////////////////////////////////////////////////////////
Private Sub copy_valuesI(WksToCopy As Object, Optional ByRef CopyOfWks As Excel.Worksheet)
If WksToCopy Is Nothing _
Then Exit Sub
If Not TypeOf WksToCopy Is Excel.Worksheet _
Then Exit Sub
Call WksToCopy.Copy
Set CopyOfWks = ActiveSheet
With CopyOfWks.UsedRange
.Value = .Value
End With
End Sub
Private Sub delete_hiddenValuesI(Worksheet As Object)
If Worksheet Is Nothing _
Then Exit Sub
If Not TypeOf Worksheet Is Excel.Worksheet _
Then Exit Sub
Dim i As Long
With Worksheet.UsedRange
For i = .Rows(.Rows.Count).Row To .Row Step -1
If .Rows(i).Hidden Then Call .Rows(i).Delete
Next
.Rows.Hidden = False
For i = .Columns(.Columns.Count).Column To .Column Step -1
If .Columns(i).Hidden Then Call .Columns(i).Delete
Next
.Columns.Hidden = False
End With
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
24.09.2014 09:10:02 |
Jonas |
|
|
Worksheet in neues Workbook kopieren und in neuem Workbook alle ausgeblendeten löschen |
24.09.2014 10:55:28 |
Gast33482 |
|
|
|
24.09.2014 11:11:51 |
Jonas |
|
|
|
24.09.2014 18:36:41 |
Gast33482 |
|
|