Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1500to1504
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
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Befehl für mehrere Zellen =

VBA - Befehl für mehrere Zellen =
11.07.2016 06:36:24
Jörg

Hallo,
ich habe z.B. folgenden VBA Befehl:
Case "A15"
If Rows("22:24").Hidden Then
Rows("22:24").Hidden = False
Else
If Rows("25:28").Hidden Then Rows("22:24").Hidden = True
End If
Dieser Befehl wiederholt sich bei A26, A37, A48,... und der Bereich ist immer gleich weit weg !
Wie kann ich das zusammen fassen ?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Befehl für mehrere Zellen =
11.07.2016 07:36:54
MCO
Guten Morgen!
Probier das mal...
Gruß. MCO 
Sub ausblenden()
rw_ini = 15 'Anfangswert
Do 'Schleife
rws1 = CStr(x + 7 & ":" & x + 9) 'Zeilenfestlegung 1
rws2 = CStr(x + 10 & ":" & x + 14) 'Zeilenfestlegung 2
If Rows(rws1).Hidden Then
Rows(rws1).Hidden = False
ElseIf Rows(rws2).Hidden Then Rows(rws1).Hidden = True
End If
rw_ini = rw_ini + 11 'jeweils + 11
Loop While rw_ini < 100 'Schleife bleibt, solange < 100 Zeilen
End Sub

AW: VBA - Befehl für mehrere Zellen =
11.07.2016 09:09:09
baschti007
Guten Morgen =)
Täusche ich mich oder sollte bei dem Code das X durch rw_ini ersetzt werden weil sonst macht das ja keinen Sinn :) und die 14 durch eine 13 ersetzen weil 15-28 = 13 oder?
Gruß Basti

Anzeige
AW: VBA - Befehl für mehrere Zellen =
11.07.2016 09:11:49
baschti007
Hier noch eine andere Variante kannst ja mal gucken ob das so passt gruß Basti
Sub ausblenden()
Dim rng
Dim x As Long
rng = Array("A15", "A26", "A37", "A48")
maxanzahl = UBound(rng)
For x = 0 To maxanzahl
If Rows(Range(rng(x)).Row + 7 & ":" & Range(rng(x)).Row + 9).Hidden Then
Rows(Range(rng(x)).Row + 7 & ":" & Range(rng(x)).Row + 9).Hidden = False
Else
If Rows(Range(rng(x)).Row + 10 & ":" & Range(rng(x)).Row + 13).Hidden Then
Rows(Range(rng(x)).Row + 7 & ":" & Range(rng(x)).Row + 9).Hidden = True
End If
End If
Next
End Sub

AW: VBA - Befehl für mehrere Zellen =
11.07.2016 12:22:41
Daniel
Hi
ich nehme mal an, das xx die Variable ist, die den Text "A15" oder "A26", "A37"
bei einigen wenigen betroffen Werten:
Select Case xx
Case "A15", "A26", "A37", "A48"
With Range(xx).Offset(7, 0).Resize(3, 1).EntireRow
.Hidden = Not(.Hidden)
end with
Case Else
End Select
bei vielen betroffen Werten und wenn man davon ausgeht, dass der Abstand immer 11 ist: 
if Left(xx, 1) = "A" Then
if Clng(Mid(xx, 2)) Mod 11 = 4 Then
if Clng(Mid(xx, 2) >=15 Then
With Range(xx).Offset(7, 0).Resize(3, 1).EntireRow
.Hidden = Not(.Hidden)
end with
end if
end if
end if
Gruß Daniel

Anzeige
AW: VBA - Befehl für mehrere Zellen =
12.07.2016 08:20:30
Jörg
Hallo,
ich glaube ich mache etwas falsch.
Es kommt immer ein Fehler bei xx (Variable nicht definiert)!?
Wie definiere ich xx ?

AW: VBA - Befehl für mehrere Zellen =
12.07.2016 12:29:10
baschti007
So vielleicht ?
Sub Bla()
Dim xx As String
xx = Application.InputBox("Sample", "hallo")
Select Case xx
Case "A15", "A26", "A37", "A48"
With Range(xx).Offset(7, 0).Resize(3, 1).EntireRow
.Hidden = Not (.Hidden)
End With
Case Else
End Select
End Sub

AW: VBA - Befehl für mehrere Zellen =
12.07.2016 15:24:13
Daniel
Hi
das xx habe ich für das eingesetzt, was du uns verschwiegen hast, nämlich die Zeile Select Case ??? die zum Case "A15" gehört.
was du da verwendet hast, kann ich nicht wissen, also habe ich einfach mal xx genommen, weil irgendwas muss ich nehmen, um halbwegs sinnvollen Beispielcode schreiben zu können.
Setze das xx das Richtige ein, dann funktionert es.
Gruß Daniel

Anzeige
AW: VBA - Befehl für mehrere Zellen =
13.07.2016 07:23:04
Jörg
Hallo,
AH! War keine Absicht!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Select Case Target.Address
Habe ich nur vergessen, das dass dazugehört!
Vielen Dank.

319 Forumthreads zu ähnlichen Themen

Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Excel markiert mehrere Zellen
Udo

Hallo zusammen,
seit kurzem hab ich das Problem, dass Excel immer 4 Zellen senkrecht auf einmal markiert. Ich bekomme es nicht weg. Jemand ne Idee ?
Vielen Dank
28.11.2008 23:27:00
Thread-ID: 1028803
3 Beiträge
Anzeige
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
nicht zusammenhängende Zellen markieren
P.Mackes

Es ist nur eine Spielerei, aber trotzdem...
Weiß jemand eine Möglichkeit zwei (oder mehrere) nicht zusammenhängende Zellen ohne die Maus (also nur mit Tastatur) zu markieren?
Evtl. geht sowas über named ranges oder mit dem F8-Key, aber ich bin noch auf keine richtige Lösung gekommen.
30.03.2009 14:35:35
Thread-ID: 1065301
3 Beiträge
Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 Beiträge
Kopieren von nicht zusammenhängenden Zellen
nicht

Hallo zusammen,
ich möchte nicht zusammenhängende Zellen gleichzeitig kopieren. Hierfür markiere ich die entsprechenden Zellen und versuche dann zu kopieren.
Ab einer bestimmten Anzahl von Zellen ist dies allerding nicht mehr möglich.
Es erscheint dann folgende Fehlermeldung:
...
16.06.2009 12:02:18
Thread-ID: 1081826
2 Beiträge

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
8
2
5
2
2
1
6
2
12
1
7
3
8
2
4
1
2
3
2
4
2
4
4
3
5