Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

On Error GoTo Problem & Code Verschlankung

On Error GoTo Problem & Code Verschlankung
24.10.2016 17:35:57
Pseudo
Hallo zusammen.
Ich als absoluter VBA Anfänger bin gerade auf der Suche nach einer Lösung zu folgendem Problem (habe leider nicht das passende in bestehenden Threads gefunden):
Ich habe folgenden Code, der auch funktioniert, solange die Werte auch gefunden werden können:
Range("B:AZ").Find("Pos").EntireColumn.Hidden = True
Range("B:AZ").Find("PPG").EntireColumn.Hidden = True
Range("B:AZ").Find("Modul").EntireColumn.Hidden = True
Range("B:AZ").Find("EKogr").EntireColumn.Hidden = True
Range("B:AZ").Find("ZF").EntireColumn.Hidden = True
Range("B:AZ").Find("SD").EntireColumn.Hidden = True
Range("B:AZ").Find("ZI").EntireColumn.Hidden = True
Range("B:AZ").Find("BTCh").EntireColumn.Hidden = True
Range("B:AZ").Find("VC-rel").EntireColumn.Hidden = True
Range("B:AZ").Find("DMU-Modell").EntireColumn.Hidden = True
Range("B:AZ").Find("Reife").EntireColumn.Hidden = True
Range("B:AZ").Find("JITKZ").EntireColumn.Hidden = True
Range("B:AZ").Find("Nachkommentar").EntireColumn.Hidden = True
Range("B:AZ").Find("Zusatz-Info").EntireColumn.Hidden = True
Range("B:AZ").Find("+-").EntireColumn.Hidden = True
Range("B:AZ").Find("SA/LA/PA").EntireColumn.Hidden = True
Range("B:AZ").Find("BE").EntireColumn.Hidden = True
Range("B:AZ").Find("Userid").EntireColumn.Hidden = True
Range("B:AZ").Find("letztes Aend.-Datum").EntireColumn.Hidden = True
Range("B:AZ").Find("KMNR-AI").EntireColumn.Hidden = True
Range("B:AZ").Find("Datum-AI").EntireColumn.Hidden = True
Range("B:AZ").Find("FixPos").EntireColumn.Hidden = True
Range("B:AZ").Find("Gewicht").EntireColumn.Hidden = True
Range("B:AZ").Find("Gewichtsart").EntireColumn.Hidden = True
Range("B:AZ").Find("SD-TEXT").EntireColumn.Hidden = True
Range("B:AZ").Find("SD-ID").EntireColumn.Hidden = True
Range("B:AZ").Find("Zertifikat").EntireColumn.Hidden = True
Range("B:AZ").Find("Mehere-Zertifikate").EntireColumn.Hidden = True
Meine Frage an Euch ist, wie ich diesen offensichtlich aufgeblähten Code vereinfachen kann. Zudem soll die Suche auch weiterlaufen, wenn einer der Suchbegriffe nicht in dem Arbeitsblatt vorkommt. Ich habe leider zu wenig Ahnung, als dass ich eine gute Schleife mit "On Error GoTo" o.Ä. schreiben kann.
Danke für Eure Hilfe!
Gruß,
Pseudo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: On Error GoTo Problem & Code Verschlankung
24.10.2016 19:08:16
Daniel
Hi
solange du die Spaltennamen nirgend woanders hinterlegt hast (bspw als Liste in eine Exceltabelle) lässt sich da mit Schleife nicht viel machen, da du ja sowieso jeden Spaltennamen einzeln angeben musst
Du könntest zwar die Spaltennamen in ein Array packen, das wird zwar kürzer ist aber unübersichtlich bei vielen Spalten:
dim SP
For each SP in Array("POS", "PPG", ..., "Zertifikat", "Mehere-Zertifikate")
Range("B:AZ").Find(SP).EntireColumn.Hidden = True
Next
das mit dem On Error geht hier ganz einfach, weil du ja im Prinzip einfach nur mit der nächsten Spalte weitermachen kannst, wenn ein Spaltenname nicht gefunden werden kann:
On Error Resume Next
Range("B:AZ").Find("Pos").EntireColumn.Hidden = True
Range("B:AZ").Find("Mehere-Zertifikate").EntireColumn.Hidden = True
On Error Goto 0
das On Error Resume Next sagt: bei Fehler mit dem nächsten Programmschritt weitermachen.
das On Error Goto 0 hebt das wieder auf.
bzw, musst du wirklich alle Zellen durchsuchen? Überschriften stehen normalerweise alle in der selben Zeile, daher würde ich her nicht die Spalten für die Suche einschränken, sondern auf jeden Fall die Zeilen.
gruß Daniel
Anzeige
AW: On Error GoTo Problem & Code Verschlankung
25.10.2016 17:45:47
Pseudo
Hallo Daniel,
Danke für deine Antwort. Es ist tatsächlich so, dass die Überschriften in der gleichen Zeile stehen. Diese Zeile variiert zwar, je nachdem welche Daten in das Excelblatt eingespielt werden, kann aber durch 
' Zeilen werden als Vertriebsteil gekennzeichnet (Grün) oder als nicht Vertriebsteil (gelb) und  _
Kommentarfeld wird eingefügt
Dim c As Range
Dim V As Long
With ActiveSheet
On Error GoTo ende
Kogr = .Columns(1).Find("Kogr", LookIn:=xlValues, LookAt:=xlWhole).Row
V = .Rows(Kogr).Find("V", LookIn:=xlValues, LookAt:=xlWhole).Column
lastcell = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range(.Cells(Kogr + 1, V), .Cells(lastcell, V))
If c = "*" Then
.Rows(c.Row).Interior.ColorIndex = 4
Else
.Rows(c.Row).Interior.ColorIndex = 3
End If
Next
.Columns(V + 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(Kogr, V + 1) = "Kommentar "
End With
ende:
jedesmal ermittelt werden. Ich weiß aber leider nicht wie ich das ganze mit 

'Spalten ausblenden
Range("B:AZ").Find("Pos").EntireColumn.Hidden = True
Range("B:AZ").Find("PPG").EntireColumn.Hidden = True
Range("B:AZ").Find("Modul").EntireColumn.Hidden = True
Range("B:AZ").Find("EKogr").EntireColumn.Hidden = True
Range("B:AZ").Find("ZF").EntireColumn.Hidden = True
Range("B:AZ").Find("SD").EntireColumn.Hidden = True
Range("B:AZ").Find("ZI").EntireColumn.Hidden = True
Range("B:AZ").Find("BTCh").EntireColumn.Hidden = True
Range("B:AZ").Find("VC-rel").EntireColumn.Hidden = True
Range("B:AZ").Find("DMU-Modell").EntireColumn.Hidden = True
Range("B:AZ").Find("Reife").EntireColumn.Hidden = True
Range("B:AZ").Find("JITKZ").EntireColumn.Hidden = True
Range("B:AZ").Find("Nachkommentar").EntireColumn.Hidden = True
Range("B:AZ").Find("Zusatz-Info").EntireColumn.Hidden = True
Range("B:AZ").Find("+-").EntireColumn.Hidden = True
Range("B:AZ").Find("SA/LA/PA").EntireColumn.Hidden = True
Range("B:AZ").Find("BE").EntireColumn.Hidden = True
Range("B:AZ").Find("Userid").EntireColumn.Hidden = True
Range("B:AZ").Find("letztes Aend.-Datum").EntireColumn.Hidden = True
Range("B:AZ").Find("KMNR-AI").EntireColumn.Hidden = True
Range("B:AZ").Find("Datum-AI").EntireColumn.Hidden = True
Range("B:AZ").Find("FixPos").EntireColumn.Hidden = True
Range("B:AZ").Find("Gewicht").EntireColumn.Hidden = True
Range("B:AZ").Find("Gewichtsart").EntireColumn.Hidden = True
Range("B:AZ").Find("SD-TEXT").EntireColumn.Hidden = True
Range("B:AZ").Find("SD-ID").EntireColumn.Hidden = True
Range("B:AZ").Find("Zertifikat").EntireColumn.Hidden = True
Range("B:AZ").Find("Mehere-Zertifikate").EntireColumn.Hidden = True
verknüpfen soll. Ich habe aber das Gefühl, dass Du es sehr leicht lösen kannt ;)
Danke und beste Grüße,
Pseudo
Anzeige

174 Forumthreads zu ähnlichen Themen

On Error GoTo ErrorHandler
Heinz

Hallo Leute
Habe unteres Makro von " Timo " erhalten...besten Dank
Nun habe ich "On Error GoTo ErrorHandler" selbst eingebaut,aber es funkt. nicht so richtig, läuft wenn kein Fehler nicht weiter.
Könntet ihr mir bitte nochmals helfen ?
Danke Heinz
Option Explicit
Dim Gel...
23.12.2008 18:27:00
Thread-ID: 1035039
14 Beiträge
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
On Error resume next
Dirk

Hallo zusammen,
habe Probleme mit dem Befehl on Error resume next. gilt dies nur für den nächsten Befehl, oder dann den rest der Prozedur? Kann ich die Fehlermeldungen wieder einschlten?
Mein Wissen langt nicht dafür :-)
03.02.2009 17:52:00
Thread-ID: 1046737
3 Beiträge
Anzeige
Excel4Makro - on error resume next
Michael

Hallo allerseits,
ich habe hier eine historisch gewachsenes sehr sehr umfangreiche Tabelle mit einer Mischung aus Excel4Makros und VBA.
Da liegt meine Problem. Ich suche den Befehl "on error resume next" also "fehler überspringen" für Excel4Makros. Kann mir da jemand helfen?
LG
...
16.12.2009 08:42:38
Thread-ID: 1124248
2 Beiträge
On Error Resume ohne Funktion an einem PC
Günter

Hallo Zusammen,
ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean Dim Bild As Shape On Error Resume Next Set Bild = Blatt.Shapes(shpName) shape_Exi...
05.07.2010 15:01:05
Thread-ID: 1165466
8 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge
On Error Goto bleibt hängen
Jemp

Hallo Freunde
Ich habe eine Datei aus der ich jeden Montat verschiedene Zellen in eine separate Datei kopieren möchte und diese Datei wird dann gespeichert.
Weil mehrer Dateien auf diese Zieldatei zurückgreifen und die Datei ggfs schon erstellt oder offen ist muss das überprüft werden.<...
10.09.2010 10:03:54
Thread-ID: 1176789
4 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
13
3
5
2
5
1
7
2
3
3
7
1
4
8
6
3
4
6
5
1
2
4
2
2
3