Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Match-Fehler abfangen

Match-Fehler abfangen
Eddi
Hallo zusammen,
ich habe über VBA eine Match-Funktion erstellt, die mir in einem Sheet die erste Zeile nach einem bestimmten Benutzernamen durchsuchen soll. Wenn nichts gefunden wurde bekomm ich derzeit eine Fehlermeldung und das Programm stürzt ab. Wie kann ich das umgehen? Noch zur Info, wenn nichts gefunden wurde, soll in der Zelle rechts nebem dem letzten Eintrag der aktuelle Benutzer eingetragen werden. Die Variable UserNr gibt mir normalerweise die Spalte zurück mit der ich dann weiterarbeite.
Dim UserNr as Integer
Dim User as String
User = "Mustermann"
UserNr = Application.WorksheetFunction.Match(user, Sheets("User").Range("A1:Z1"), 0)
.....
Vielen Dank für Eure Hilfe
Eddi

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Match-Fehler abfangen
11.05.2011 00:12:45
hary
Moin Eddi
als Ansatz. 

Dim UserNr As Integer
Dim User As String
On Error GoTo nix
User = "Mustermann"
UserNr = Application.WorksheetFunction.Match(User, Sheets("User").Range("A1:Z1"), 0)
MsgBox UserNr
nix:
Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ("Username")
gruss hary
AW: besser mit find
11.05.2011 00:28:21
hary
Hallo
Mit find geht's ohne Fehlerbehandlung. 

Dim zelle As Range
Dim UserNr As Integer
Dim User As String
User = "Mustermann"
Set zelle = Worksheets("User").Range("A1:Z1").Find(What:=User, LookIn:=xlValues, lookat:= _
xlWhole)
If Not zelle Is Nothing Then
UserNr = zelle.Column
Else
Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ("Username" _
)
End If
Set zelle = Nothing

gruss hary
Anzeige
AW: besser mit find
11.05.2011 00:37:48
Eddi
Super, vielen Dank.
MfG
besser mit Mach
11.05.2011 08:39:41
Erich
Hi zusammen,
auch mit Match gehts ohne Fehlerbehandlung: 

Sub aaaTest()
Dim strUser As String
Dim varZ As Variant, lngC As Long ' besser als Integer
strUser = "Mustermann"
With Sheets("User")
varZ = Application.WorksheetFunction.Match(strUser, .Range("A1:Z1"), 0)
MsgBox varZ
If Not IsNumeric(varZ) Then
lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
.Cells(1, lngC) = Environ("Username")
End If
End With
End Sub
Noch eine Bemerkung zur Referenzierung: In der Zeile
Sheets("User").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = Environ(
beziehen sich Cells und Columns.Count in "Cells(1, Columns.Count)" auf das gerade aktive Blatt.
Sheets("User") steht zwar am Anfang der Zeile, bezieht sich aber nur auf das 1. Cells.
Da ist ein With meist sehr praktisch.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
besser mit Application.Match - Korrektur
11.05.2011 09:03:16
Erich
Hi zusammen,
wie Rudi schon schrieb: Besser ohne WorksheetFunction, also mit
varZ = Application.Match(strUser, .Range("A1:Z1"), 0)
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW:@ Erich
11.05.2011 10:48:38
hary
Moin Erich
ja, hast Recht. Hatte zwei Codes, auch einmal mit with. Dann zwischendurch was anderes probiert und falschen Code gepostet
Leicht uebermuedet .
sry gruss hayr
Application.Match
11.05.2011 08:56:57
Rudi
Hallo,
am besten ohne Worksheetfunction 
Dim UserNr as Variant
Dim User as String
User = "Mustermann"
UserNr = Application.Match(user, Sheets("User").Range("A1:Z1"), 0)
If Not IsError(UserNr) Then
End If

Gruß
Rudi
Anzeige
AW: Application.Match
11.05.2011 22:41:11
Eddi
Warum eigentlich ohne WorksheetFunktion? Gibt's da irgendein Unterschied?
Gruß, Eddi
AW: Unterschied
12.05.2011 11:40:22
Rudi
Hallo,
ja, den gibt es.
x=Worksheetfunction.Match(...) ergibt einen Laufzeitfehler 1004, wenn der Suchbegriff nicht gefunden wird (Die Match-Eigenschaft des Worksheetfunction-Objekts kann nicht zugewiesen werden). Das kannst du nur mit On Error abfangen.
x=Application.Match(...) hingegen weist x den Fehlerwert (Fehler 2042) zu. Das kannst du dann abfragen.
If IsError(x) Then ...
Dito für VLOOKUP, HLOOKUP,..
Gruß
Rudi

23 Forumthreads zu ähnlichen Themen

WorksheetFunction Match ?
chrissey

Hallo Leut,
versuche einer Variable den Wert der WF.Match zu zuweisen.
e = Application.WorksheetFunction.Match(so, Sheets("WeNr").Range("A2:A4"), 0)
Funktioniert aber nicht, weiss jmd warum ?
p.s.: Habe e als variant definiert, ist integer besser?
Grüße & viele Dank scho...
30.03.2010 09:40:59
Thread-ID: 1149296
4 Beiträge
Anzeige
Fehler bei WorksheetFunction.Match
Michael2010

Hallo allerseits,
ich verzweifel hier bald. Wir haben letzte Woche auf Office 2010 umgestellt und jetzt bleibt eine GANZ Wichtige Tabelle bei folgenden Code hängen
test = WorksheetFunction.Match(i, ArrKW)
Die Dimensonierung
ArrKW = Variant
i = integer, weil es ein Zähler ist...
05.04.2012 08:49:40
Thread-ID: 1257980
5 Beiträge
VBA Fehler abfangen
Peter

Guten Tag an alle Forumsteilnehmer,
ich habe ein kleines Problem mit folgendem Code.
ActiveSheet.Shapes("AutoShape 1").Rotation = Range("A1").Value
Wie schalte ich die Fehlermeldung aus, wenn Zelle A1 leer ist.
Würde mich freuen, wenn Ihr mir weiterhelfen könntet.
Vielen Dan...
03.03.2013 14:33:27
Thread-ID: 1302021
5 Beiträge
Anzeige
VBA Application.WorksheetFunction.Median
Lolaley

Hallo,
Ich wollte mir gern von untereinandergeschriebenen Daten pro Monat (hier jetzt nur die mit 31 Tagen) die Mediane ausrechnen lassen. Dabei kommt jetzt aber immer die Fehlermeldung:
"Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"
Ich schätze mal, die...
11.11.2014 14:45:27
Thread-ID: 1391676
6 Beiträge
Application.WorksheetFunction.Match
Christoph

Hallo und einen schönen Abend
Meine Excel/VBA Kenntnisse reichen leider wieder einmal nicht aus und so hoffe ich auf Hilfe im Forum:
Ich habe in der Spalte A Datumswerte eingetragen.
10.10.2015
20.12.2016
30.12.2016
31.12.2016
12.01.2017
04.02.2017
06.03.2017...
15.05.2017 19:43:18
Thread-ID: 1558489
4 Beiträge
VBA, WorksheetFunction.SearchB
Rainer Quaas

Hallo Excel-User,die Häufigkeit (H) wie oft String1 in String2 vorkommt, wobei String1 * oder ? als Wildcard enthalten kann, wird durch folgende Funktion berechnet:H = Application.WorksheetFunction.SearchB(String1 , String2 , 1)Bei einer Zeichenanzahl > 32.0000 von String2 ist diese Formel nich...
04.04.2003 11:23:40
Thread-ID: 240294
4 Beiträge
VBA - Application.WorksheetFunction.Index
Markus
Hallo liebe Community,

ich versuche via Application.WorksheetFunction.Index mit Hilfe von zwei Koordinaten (x, y-Wert) Zellen gezielt anzusprechen um Werte (Value)hineinzukopieren.

Ich habe mir mit Hilfe dieser Funktion auch bereits die Werte aus dem ersten Tabellenblatt geholt und...
29.10.2003 10:16:39
Thread-ID: 330289
4 Beiträge
VBA - Application.WorksheetFunction.Index die 2.te
Markus S.
Hallo liebe Community,

ich versuche via Application.WorksheetFunction.Index mit Hilfe von zwei Koordinaten (x, y-Wert) Zellen gezielt anzusprechen um Werte (Value)hineinzukopieren.

Ich habe mir mit Hilfe dieser Funktion auch bereits die Werte aus dem ersten Tabellenblatt geholt und v...
29.10.2003 13:06:21
Thread-ID: 330461
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
3
5
4
4
3
5
3
3
3
3
6
1
4
2
3
2
11
2
10
6
2
4
3