Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden von - bis

Spalten ausblenden von - bis
20.02.2009 11:23:00
-
Hallo an alle Cracks,
habe eine Beispieldatei angehängt. Ich würde gerne in den Zellen B1 und B2 als Eingabe für die Kalenderwochen definieren. z.B. ich gebe von KW 10 bis KW 15 anschließend werden alle Spalten ausgeblendet nur die sollen angezeigt werden in dem Interval von 10 - 15. Könnt mir vielleicht jemand mit einem Codschnipsel helfen?
Gruß
Maris
https://www.herber.de/bbs/user/59619.xls

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden von - bis
20.02.2009 11:26:00
-
hab noch was vergessen, er soll dann auch immer die Monatsspalte miteinbeziehen also KW von - bis + 1
Gruß
Maris
AW: Spalten ausblenden von - bis
20.02.2009 12:33:00
-
Hallo Maris,
z.B. so:

Sub WochenAusblenden()
Dim wks As Worksheet
Dim strStart$, strEnde$
Dim Spalte1&, SpalteE&, Spalte&
Set wks = Worksheets("Week")
With wks
strStart = .Range("B1")
strEnde = .Range("B2")
Spalte1 = 4 'Spalte mit 1. Wocheneintrag
.Cells.EntireColumn.Hidden = False
If IsEmpty(.Cells(2, .Columns.Count)) Then
SpalteE = .Cells(2, .Columns.Count).End(xlToLeft).Column 'Letzte Spalte mit eintrag
Else
SpalteE = .Columns.Count
End If
Spalte = SpalteE
Do Until Right(.Cells(2, Spalte), Len(strEnde)) = strEnde Or Spalte  SpalteE
Spalte = Spalte + 1
Loop
If Spalte


Gruß
Franz

Anzeige
AW: Spalten ausblenden von - bis
20.02.2009 13:01:00
-
Klasse! Funktioniert einwandfrei!!! Vielen Dank!!! Ist es denn auch möglich mit nochmaligem Klick wieder alles einzublenden? Nur wenn nicht aufwendig....
Gruß
Maris
AW: Spalten ausblenden von - bis
20.02.2009 13:49:00
-
Hallo Maris,
kein Problem
Gruß
Franz

Sub SpaltenEinblenden()
Worksheets("Week").Columns.Hidden = False
End Sub


AW: Spalten ausblenden von - bis
20.02.2009 13:25:00
-
Hi Maris,
Diesen Code in das Tabellenblatt.
Wechselt automatisch bei Eingaben in B1 oder B2.
Wenn eine der Zelle leer ist wird alles eingeblendet.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range, tFCol As String, tLCol As String
If Target.Address = "$B$1" Or Target.Address = "$B$2" Then
If IsEmpty(ActiveSheet.Range("B1")) Or _
IsEmpty(ActiveSheet.Range("B2")) Then
tFCol = "D": tLCol = "IV"
Else
ActiveSheet.Range("D:IV").EntireColumn.Hidden = True
For Each rC In ActiveSheet.Range("D2:IV2")
If Val(Replace(rC.Value, "Week ", "")) = ActiveSheet.Range("B1").Value Then _
tFCol = rC.Address
If Val(Replace(rC.Value, "Week ", "")) = ActiveSheet.Range("B2").Value Then _
tLCol = rC.Address
Next rC
End If
ActiveSheet.Range(tFCol & ":" & tLCol).EntireColumn.Hidden = False
End If
End Sub


GreetZ Renée

Anzeige

309 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
Anzeige
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo, für euch ist das sicher einfach, aber ich bekomme folgenden Schritt nicht hin. Ich habe über Makro aufnehmen eine einfache Funktion. Es sollen 4 aufeinanderfolgende Werte in einer Zeile addiert werden. Nun soll sich aber in dem Makro diese Formel selbstständig über alle Zeilen kopieren,...
14.10.2009 17:23:17
Thread-ID: 1109648
5 Beiträge
Wert in einer Spalte eintragen bis Ende
Nicole

Hallo alle zusammen,
ich möchte eigentlich einfach nur in Spalte A ein "X" eingefügt haben, solange in Spalte Y ein Wert steht.
Steh da irgendwie gerade auf dem Schlauch. Mit meiner Formel gibt es kein Ende, es wird alles ausgefüllt.
Do Until IsEmpty(ZelleA)
Set ZelleA = rgQuell...
09.12.2009 16:51:44
Thread-ID: 1122662
4 Beiträge
Funktion kopieren bis Ende Tabelle
jo_cindy

Hallo Leute, hab da mal eine Verständnisfrage:
With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Wert...
02.02.2010 12:32:34
Thread-ID: 1135057
3 Beiträge
Formel bis Datei-Ende kopieren
Gerhard

Hallo Zusammen,
ich gebe eine Formel in ein Feld ein (noch kein Problem). Nun möchte ich diese Formel in die restlichen
Felder der Spalte kopieren (Anzahl Datensätze ist immer unterschiedlich). Markiere ich nun die Spalte und "sage" einfügen, kopiert er die Formel bis zum Datensatz 6500...
30.03.2010 08:56:46
Thread-ID: 1149267
10 Beiträge
bestimmte Zeilen nach einer Bedingung kopieren
Andre

Hi Leute,
ich werde noch verrückt mit dem code. Ich möchte gerne bestimme Zeilen von einem Sheet ins nächste kopieren, wenn zwei Bedinungen (mit Oder) erfüllt sind.
Leider klappt meine Schleife irgendwie nicht. i müsste bei jedem Durchgang höher gehen um alle 50k Zeilen zu prüfen und z...
09.04.2010 13:38:55
Thread-ID: 1150779
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
2
3
6
2
4
3
2
9
8
3
3
3
18
2
6
2
2
2
9
1
1
4
7
7