Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

Function geht nicht mehr

Function geht nicht mehr
10.12.2013 16:37:42
Snewi
Hallo Rudi,
du hast mir am 24.10.2013 um 13:32 eine Function gebastel die das eintragen doppelter Werte in einer Tabelle verhindert! Hab die Anzahl der Spalten zwar geändert und die Function angepasst aber jetzt geht sie nicht mehr! Hoffe du kannst mir sagen was ich falsch gemacht habe :-)
Gruß
https://www.herber.de/bbs/user/88474.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Function geht nicht mehr
10.12.2013 20:44:26
Rudi
Hallo,
du hast 12 Spalten, nicht 13.
Function DieZeile() As Long
Dim arrZeile, arrTest, lRow As Long, arrTmp
arrTest = Array(lbl_von.Caption, lbl_bis.Caption, t_datum, t_1021wa.Value, _
t_1022wa.Value, t_1023wa.Value, _
t_1024wa.Value, t_1026wa.Value, t_1028wa.Value, _
t_1031wa.Value, t_1047wa.Value, _
t_1053wa.Value)
For lRow = 9 To Cells(Rows.Count, 4).End(xlUp).Row
arrTmp = Cells(lRow, 4).Resize(, 12)
arrTmp = WorksheetFunction.Transpose(arrTmp)
arrTmp = WorksheetFunction.Transpose(arrTmp)
If Join(arrTmp, "|") = Join(arrTest, "|") Then
DieZeile = lRow
Exit Function
End If
Next
DieZeile = Cells(Rows.Count, 4).End(xlUp).Row + 1
End Function

Gruß
Rudi

Anzeige
AW: Function geht nicht mehr
10.12.2013 21:13:01
Snewi
upps danke :-)

warum offen? owT
10.12.2013 21:14:09
Rudi

AW: warum offen? owT
10.12.2013 23:29:03
Snewi
nochmal sorry! verklickt :-)

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige