Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenumbruch im VBA Code

Zeilenumbruch im VBA Code
17.07.2008 19:11:00
Dieter.K
Hallo Forum,
nach langer Zeit muß ich mich mal wieder mit einem Projekt beschäftigen und schon hängt's ....
Ich muß folgende Zeile aufteilen da der Code sonst zu lang wird und ich laufen seitlich scrollen muß.
'If Not Application.Intersect(Target, Range("C10,C23,C36,C39,C43:C46,C62:C65,C137:C140,C150:C151")) Is Nothing Then'
Es sind jedoch viel mehr Zellbereiche die ich ansprechen muß. Ein Zeilenumbruch mit "Space" und "Unterstrich" bringt mir jedoch immer folgenden Fehler:
Fehler beim Kompilieren
"Erwartet Listentrennzeichen oder)"
Hat jemand einen Tip für mich?
Vielen Dank im Voraus.
Gruß
Dieter.K

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch im VBA Code
17.07.2008 19:18:00
Tino
Hallo,
hier mal ein Beispiel.

If Not Application.Intersect _
(Target, Range( _
"C10,C23,C36,C39," & _
"C43:C46,C62:C65," & _
"C137:C140,C150:C151" _
)) Is Nothing Then


Gruß Tino

www.VBA-Excel.de


AW: Zeilenumbruch im VBA Code
17.07.2008 19:23:22
Uduuh
Hallo,
so geht es:

If Not Application.Intersect(Target, Range("C10,C23,C36"), _
Range("C39,C43:C46,C62:C65"), _
Range("C137:C140,C150:C151")) Is Nothing Then
'Code
End If


Gruß aus’m Pott
Udo

Anzeige
AW: Zeilenumbruch im VBA Code
17.07.2008 20:10:15
Dieter.K
Hallo Tino,
hallo Udo,
vielen Dank für Eure Hilfe. So funktioniert es. Leider wird die "Anzahl der Zeichen" zu lang und nach Doppelklick in eine der angesprochenen Zellen stürzt EXCEL ab.
Habe etwas rumprobiert und habe es über "If-Then-Else" gelöst. (Somit wird die max. mögliche Anzahl von Zeichen in einer Zeile nicht überschritten)
Danke nochmals!
Gruß
Dieter.K

noch 1 Vorschlag
17.07.2008 19:28:04
Luschi
Hallo Dieter,
so sollte es auch funktionieren: 

Dim rg As Range, strRange As String, strArray() As String, n As Long
strRange = "C10,C23,C36,C39,C43:C46,C62:C65,C137:C140,C150:C151,K1:K5"
strArray = Split(strRange, ",", -1, vbTextCompare)
For n = 0 To UBound(strArray())
If n = 0 Then
Set rg = ActiveSheet.Range(strArray(n))
Else
Set rg = Union(rg, ActiveSheet.Range(strArray(n)))
End If
Next n
''MsgBox rg.Address
If Not Application.Intersect(Target, rg) Is Nothing Then

Gruß von Luschi
aus klein-Paris

Anzeige
AW: noch 1 Vorschlag
17.07.2008 20:12:00
Dieter.K
Hallo Luschi,
auch Dir Danke für Deinen Lösungsvorschlag.
Werde ich nachher mal ausprobieren.
Gruß
Dieter.K

AW: Zeilenumbruch im VBA Code
17.07.2008 22:43:06
Daniel
Hi
wenns ein grosser Zellbereich ist und trotzdem Übersichtlich sein soll, dann könnte auch folgendes Funktionieren:

dim rngBereich = as range
set rngBereich = Range(""C10,C23,C36,C39")
set rngBereich = Union(rngBereich, Range("C43:C46,C62:C65,C137:C140"))
set rngBereich = Union(rngBereich, Range("C150:C151"))
set rngBereich = Union(rngBereich, Range("....
'---usw bis alle Zellbereiche hinzugefügt sind
'If Not Application.Intersect(Target, rngBereich) Is Nothing Then'


grosser Vorteil dieser Methode ist, daß du relativ leicht logisch zusammengehörende Zellebereiche in einer Zeile gruppieren kannst und die anderen in anderen Zeilen abrtrennen kannst.
zudem kannst du so leicht jede Zeile mit einem Kommentar versehen, was die Korrektur oder Überarbeitung zu einen späteren Zeitpunkt westenlich vereinfacht.
Gruß, Daniel

Anzeige
AW: Zeilenumbruch im VBA Code
18.07.2008 03:16:00
Dieter.K
Hallo Daniel,
Danke auch für Deinen Tip. Werde das am Wochenende mal testen.
Gruß
Dieter.K

287 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Anzeige
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 Beiträge
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi
Warum loescht mir Excel hier nur die ersten zwei Zeilen? Hat jemand eine Idee?
Danke!
Sub step9() Dim i, lz As Long lz = Cells(Rows.Count, 6).End(xlUp).Row For i = 1 To lz If Cells(i, 6) = "" Then Exit For End If Next i Range("A2", Cells(i - 1, 43)).Select Selection.SpecialCell...
16.01.2009 19:35:01
Thread-ID: 1040733
3 Beiträge
VBA > Text keinen Zeilenumbruch
Gopla

Hallo liebe Gemeinschaft,
ich habe ein Problem, dessen ich nicht Herr werde und welches schwer zu beschreiben ist:
Ich habe einen Text.txt, welcher in VBA durch
intHandle = FreeFile
Open "C:\test.txt" For Input As #intHandle
geöffnet wird und anschließend durch
Line In...
18.01.2009 01:55:08
Thread-ID: 1041037
6 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
7
4
12
5
12
2
7
6
2
5
2
23
7
4
2
4
3
6
3
4
1
10
4
7
1