Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
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
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem mit Code

Problem mit Code
07.09.2017 16:23:45
Küster
Hallo Gemeinde.
Es geht um folgenden Code :
With Target
If .Count = 1 Then
Select Case .Column
Case 3, 7
lngCol1 = 3
lngCol2 = 7
Case 9, 13
lngCol1 = 9
lngCol2 = 13
Case 15, 19
lngCol1 = 15
lngCol2 = 19
Case 21, 25
lngCol1 = 21
lngCol2 = 25
End Select
Ich hab den letzten Case nachträglich hinzugefügt. Alle anderen funktioniern nur der Letzte nicht. Was könnte das für einen Grund haben ?
Mfg

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
kann man so nicht sagen!
07.09.2017 16:47:21
Tino
Hallo,
hier fehlt "was funktioniert nicht"!
Woher kommt Target?
Hat Target die Spalte 21 (U) oder 25 (Y)?
Gruß Tino
AW: kann man so nicht sagen!
07.09.2017 17:20:29
Küster
Ja .. Target hat die Spalten U & Y
Hier mal der ganze Code : 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varRet As Variant, varRet2 As Variant, lngNext As Long, objList As Object
Dim lngCol1 As Long, lngCol2 As Long
With Target
If .Count = 1 Then
Select Case .Column
Case 3, 7
lngCol1 = 3
lngCol2 = 7
Case 9, 13
lngCol1 = 9
lngCol2 = 13
Case 15, 19
lngCol1 = 15
lngCol2 = 19
Case 21, 25
lngCol1 = 21
lngCol2 = 25
End Select
If lngCol1 > 0 Then
If Cells(.Row, 2)  "" And IsDate(Cells(.Row, lngCol1)) And Cells(.Row, lngCol2)  ""  _
Then
Set objList = Sheets("Wartungsübersicht")
varRet = Application.Match(Cells(.Row, 2), objList.Rows(1), 0)
If IsNumeric(varRet) Then
varRet2 = Application.Match(Cells(1, lngCol1), objList.Cells(2, varRet).Resize(1, 6) _
, 0)
If IsNumeric(varRet2) Then
varRet2 = varRet + varRet2 - 1
lngNext = Application.Max(4, objList.Cells(Rows.Count, varRet2).End(xlUp).Row + 1) _
objList.Cells(lngNext, varRet2) = Cells(.Row, lngCol1)
objList.Cells(lngNext, varRet2 + 1) = Cells(.Row, lngCol2)
End If
End If
End If
End If
End If
End With
Set objList = Nothing
End Sub

Anzeige
AW: kann man so nicht sagen!
07.09.2017 18:18:27
Tino
Hallo,
du hast nicht geschrieben was nicht funktioniert.
Schreibe vor With Target Stop dann bleibt der Code dort stehen und gehe mit F8 in einzelschritten weiter.
Evtl. kannst du erkennen was nicht geht.
Gruß Tino
AW: kann man so nicht sagen!
07.09.2017 19:52:50
Küster
Fehler gefunden. Nen Zahlendreher gehabt. Vielen Dank für die Hilfe.
Mfg
AW: kann man so nicht sagen!
07.09.2017 18:23:02
ChrisL
Hi
Kaffeesatz lesen :)
Vielleicht kein Datum in Spalte 21?
cu
Chris

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige