|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Excel VBA - Spalten mit einem bestimmten Inhalt entfernen |
26.06.2014 10:34:56 |
Tribal |
|
|
|
27.06.2014 02:21:53 |
Gast82188 |
|
|
|
27.06.2014 02:26:39 |
Gast35706 |
|
|
|
27.06.2014 03:19:27 |
Gast10792 |
|
|
|
27.06.2014 09:16:06 |
Gast99511 |
|
|
|
27.06.2014 14:27:53 |
Tribal |
|
|
|
27.06.2014 19:19:32 |
Tribal |
|
|
|
27.06.2014 21:52:25 |
Gast56427 |
|
|
Von:
Tribal |
Datum:
26.06.2014 10:34:56 |
Views:
1423 |
Rating:
|
Antwort:
|
Thema:
Excel VBA - Spalten mit einem bestimmten Inhalt entfernen |
|
Hallo zusammen,
ich stehe vor einem kleinen Problem. Ich möchte gerne ein Makro erstellen, dass Automatisch Spalten ausblendet.
Die bedingung zum ausblenden sind wenn in der Zeile 1 der wert 1 vorkommt.
Da man dies wohl mit einer For schleife verknüpfen muss wäre es zugunsten der Perfomance gut wenn eine zusätzliche Prüfung auf einen Wert ungleich 1 bzw. = 0.
In meiner Tabelle ist es möglich, dass in den ersten x Spalten in Zeile 1 kein Wert enthalten ist, jedoch wird nachdem die Spalten>x mit Zeile 1=1 keine weitere Prüfung benötigt wenn wieder eine Spalte mit Zeile 1 = 0 erscheint.
Bildlich gesprochen:
0|0|0|0|1|1|1|1|1|1|1|1|1|1|0|0|0|0|0|0|0|0|
n|n|n|n|a|a|a|a|a|a|a|a|a|a|e|
n= nicht ausblenden
a= ausblenden
e= Ende der prüfung - diese Spalte darf nicht ausgeblendet werden
Das habe ich bisher veranstaltet:
Sub SpaltenenAusblenden()
Dim i As Long
Dim j As Long
j = 1
For i = 1000 To UsedRange.Columns.Count
If Range(i & j) = 1 Then
Range(i & j).Columns.Hidden = True
End If
If Range(i-1 & j) = 1 Then
If Range(i & j) = 0 Then
i = 1000
Next
End Sub
Bin leider sehr VBA unerfahren, weswegen die Syntax natürlich nicht funktioniert.
Ich danke schon einmal im Voraus.
Gruß
Tribal
|
- 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
|
Excel VBA - Spalten mit einem bestimmten Inhalt entfernen |
26.06.2014 10:34:56 |
Tribal |
|
|
|
27.06.2014 02:21:53 |
Gast82188 |
|
|
|
27.06.2014 02:26:39 |
Gast35706 |
|
|
|
27.06.2014 03:19:27 |
Gast10792 |
|
|
|
27.06.2014 09:16:06 |
Gast99511 |
|
|
|
27.06.2014 14:27:53 |
Tribal |
|
|
|
27.06.2014 19:19:32 |
Tribal |
|
|
|
27.06.2014 21:52:25 |
Gast56427 |
|
|