Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.11.2016 14:57:19 |
Tom |
|
|
|
23.11.2016 18:55:24 |
Onur |
|
|
|
23.11.2016 19:08:29 |
Tom |
|
|
|
23.11.2016 19:22:56 |
Gast26106 |
|
|
|
23.11.2016 19:54:31 |
Tom |
|
|
Ausdruck aus einer Liste |
23.11.2016 19:58:38 |
Tom |
|
|
|
23.11.2016 20:50:53 |
Onur |
|
|
|
23.11.2016 20:54:29 |
Tom |
|
|
|
23.11.2016 22:34:28 |
Onur |
|
|
|
23.11.2016 23:35:39 |
Tom |
|
|
Von:
Tom |
Datum:
23.11.2016 19:58:38 |
Views:
728 |
Rating:
|
Antwort:
|
Thema:
Ausdruck aus einer Liste |
Das war der Ursprüngliche Code zum Ausblenden der Spalten, werde die Schleife zum Ausblenden einfach umprogrammieren zum Kopieren in die Übersicht^^
Aber gerne mal durchlesen, bin für Verbesserungsvorschläge offen! (Ist dass erstes Makro welches ich in meinem Leben geschrieben habe :D)
Sub master()
'Variablen Definition
Dim AnzX As Integer
Dim zeile As Integer
Dim EndeZ As Integer
Dim x As Integer
Dim AnfS As Integer
Dim EndeS As Integer
Dim zaehler()
Dim Check As Integer
'Definitionsende
'//////////////////////////////////////////////////////
'Anzahl X und EndeZ speichern
AnzX = Range("AnzahlX") - 1
EndeZ = Range("EndeZ").Row
'Zeilennummer in Array speichern
ReDim zaehler(AnzX)
x = 0
For zeile = 3 To EndeZ
If Cells(zeile, 1) = "x" Then
zaehler(x) = zeile
End If
If Cells(zeile, 1) = "x" Then
x = x + 1
End If
Next zeile
'Speichern und Vorbereitung abgeschlossen
'Prüfung ob ein x in der Spalte ist um dann die Spalte, falls dem nicht so ist, auszublenden
AnfS = Range("BeginnS").Column
EndeS = Range("EndeS").Column
For p = AnfS To EndeS
For i = 0 To AnzX
If Cells(zaehler(i), p) <> "" Then
Check = Check + 1
End If
Next i
If Check = 0 Then
Columns(p).EntireColumn.Hidden = True
End If
Check = 0
Next p
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.2016 14:57:19 |
Tom |
|
|
|
23.11.2016 18:55:24 |
Onur |
|
|
|
23.11.2016 19:08:29 |
Tom |
|
|
|
23.11.2016 19:22:56 |
Gast26106 |
|
|
|
23.11.2016 19:54:31 |
Tom |
|
|
Ausdruck aus einer Liste |
23.11.2016 19:58:38 |
Tom |
|
|
|
23.11.2016 20:50:53 |
Onur |
|
|
|
23.11.2016 20:54:29 |
Tom |
|
|
|
23.11.2016 22:34:28 |
Onur |
|
|
|
23.11.2016 23:35:39 |
Tom |
|
|