|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.11.2022 11:48:10 |
Chris |
|
|
 Zerlege deine Probleme in einzelne und löse diese dann |
23.11.2022 12:47:20 |
Gast29583 |
|
|
|
23.11.2022 13:49:35 |
Gast44417 |
|
|
|
23.11.2022 15:17:33 |
Chris |
|
|
|
23.11.2022 19:16:31 |
Chris |
|
|
|
23.11.2022 19:58:11 |
Gast15772 |
|
|
|
23.11.2022 21:21:03 |
Gast81588 |
|
|
|
23.11.2022 21:31:16 |
Gast2234 |
|
|
|
23.11.2022 22:13:24 |
Chris |
|
|
Von:
Gast29583 |
Datum:
23.11.2022 12:47:20 |
Views:
574 |
Rating:
|
Antwort:
|
Thema:
Zerlege deine Probleme in einzelne und löse diese dann |
|
ungetestet!
Option Explicit
Public Sub FormatWorksheets()
Dim wks As Excel.Worksheet
For Each wks In ThisWorkbook.Worksheets
Call HandleWorksheet(wks)
Next
End Sub
Private Sub HandleWorksheet(Worksheet As Excel.Worksheet)
If Worksheet.Name = "Info" Then
Exit Sub
End If
Call DeleteRows(Worksheet)
Call ConvertToSmartTable(Worksheet.Range("$A$1:$E$39"), "Tabelle" & Worksheet.Index)
End Sub
Private Sub ConvertToSmartTable(Range As Excel.Range, Name As String)
Dim obj As Excel.ListObject
Set obj = Range.Worksheet.ListObjects.Add(xlSrcRange, Range, , xlYes)
obj.Name = Name
End Sub
Private Sub DeleteRows(Worksheet As Excel.Worksheet)
Call Worksheet.Rows("1:17").Delete(xlShiftUp)
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
|
|
23.11.2022 11:48:10 |
Chris |
|
|
Zerlege deine Probleme in einzelne und löse diese dann |
23.11.2022 12:47:20 |
Gast29583 |
|
|
|
23.11.2022 13:49:35 |
Gast44417 |
|
|
|
23.11.2022 15:17:33 |
Chris |
|
|
|
23.11.2022 19:16:31 |
Chris |
|
|
|
23.11.2022 19:58:11 |
Gast15772 |
|
|
|
23.11.2022 21:21:03 |
Gast81588 |
|
|
|
23.11.2022 21:31:16 |
Gast2234 |
|
|
|
23.11.2022 22:13:24 |
Chris |
|
|