Office: (Office 2013) Debuggen

Hallo Liebe Helfer

Ich habe den Folgenden VBA Code, bei den alles funktioniert, es sind 2 Tabellen Blätter wobei wenn in einen die Spalten von Buchstaben auf Zahlen geändert werden erscheint Debuggen ? kann man das irgendwie abändern ?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngQuelle As Range
Dim rngWert As Range
Dim lngLetzte As Long
With Worksheets("Daten")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 17)), .Cells(.Rows.Count, 17).End(xlUp).Row, .Rows.Count)
End With
If Target.Column = 6 Then
Set rngQuelle = Worksheets("Daten").Range(Mid(Target.Validation.Formula1, InStr(Target.Validation.Formula1, "!") + 1))
Set rngWert = rngQuelle.Find(Target, lookat:=xlWhole)
If Not rngWert Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 1) = rngWert.Offset(0, 1)
Application.EnableEvents = True
Else
MsgBox "Tfz-Reihe nicht gefunden"
End If
ElseIf Target.Column = 8 Then
If Target.Offset(0, 2) "" Then
For i = 5 To lngLetzte
If Worksheets("Daten").Cells(i, 13) = Target And Worksheets("Daten").Cells(i, 15) = Target.Offset(0, 2) Then
Application.EnableEvents = False
Target.Offset(0, 4) = Worksheets("Daten").Cells(i, 17)
Application.EnableEvents = True
Exit For
End If
Next i
End If
ElseIf Target.Column = 10 Then
If Target.Offset(0, -2) "" Then
For i = 5 To lngLetzte
If Worksheets("Daten").Cells(i, 15) = Target And Worksheets("Daten").Cells(i, 13) = Target.Offset(0, -2) Then
Application.EnableEvents = False
Target.Offset(0, 2) = Worksheets("Daten").Cells(i, 17)
Application.EnableEvents = True
Exit For
End If
Next i
End If
End If
Set rngQuelle = Nothing
Set rngWert = Nothing
End Sub
LgSupi

:)

 

Was soll das?

Fragst hier um Hilfe und gibst noch nicht einmal den Fehler an!
Debuggen wo? Was steht in der Meldung?

Außerdem ist es eine leichte Unverschämtheit den Code hier unformatiert einzustellen.

Etwas mehr Respekt den Helfern gegenüber würde allgemein, nicht nur Dir, guttun!

Ebenso wäre die zugehörige Mappe auch hilfreich - oder soll das jemand nachbauen?

Also?

Rainer

 

Hallo Rainer
Sorry das ich das so reingestellt habe, da hier im Forum nur Mappe mit 156kb hochgeladen werden können übersteigt meine dieses Limit.

Ich versuche es mal so zu Beschreiben Ich habe eine Tabelle1 mit eingaben und eine Tabelle2 wenn die Spalten Buchstabe geädert werden
dann kommt Debuggen! nach Öffnen ist das gelb markiert :
Set rngQuelle = Worksheets("Daten").Range(Mid(Target.Validation.Formula1, InStr(Target.Validation.Formula1, "!") + 1))

L.G. Supi

 

Sorry,

Welche Fehlermeldung hatte ich oben gefragt?
Da steht doch mehr als Debuggen!
Nach diesem Fehler hättest du direkt suchen können!

Wenn du keine Lust hast deine Datei hier hochzuladen, habe ich keine Lust dir zu helfen.
Die Datei kann man entrümpeln!

Die Variable i ist nicht deklariert.
Verwende immer Option Explicit.

Rainer

 

Das Ganze hat auch ein Vorspiel:
http://www.ms-office-forum.net/forum...=335264&page=3
Hatte ich leider zu spät gesehen.

Beverly hatte ihn schon aufgefordert seine Mappe hochzuladen.

Vom TS sind keinerlei Eigenbemühungen zu erkennen,
deshalb ist für mich jetzt Schluss mit lustig.
Rainer

 

Hallo Rainer

Ich muss sagen ich bin Froh, das Beverly mir geholfen hat, und ich habe
auch geschrieben das meine Datei größer ist als 156kb die erlaubt sind zum
Hochladen, nenne mir bitte einen Tip wie ich größere Dateien hochladen kann und ich werde es nach erhalt sofort machen!

Was es Angeht bezüglich Vorgeschichten denke ich das es egal ist, dazu gibt es ja Forums wo Andere gerne Helfen wollen, Ich versuche es für euch
so gut ich es kann oder gewünscht wird meine Hilfen für euch umzusetzen!

das ist nicht böse gemein Hoffe weiterhin auch eure Hilfen DANKE
L.G. Supi

 

Hallo,
schön, dass du dich jetzt wieder hier in diesem Thread meldest.
Warum bleibst du nicht im Anderen?
Hast doch dort die gleiche Antwort bekommen: Abspecken!

Du möchtest hier Hilfe erhalten, dann musst du dich auch an der Lösung beteiligen.
Dazu gehört auch eine verständliche Beschreibung:

Verstehe ich nicht!
Rainer

 

Hallo Rainer

Ich versuchs mal mit einer Zip Datei!

Hoffe es jetzt Hinzubekommen!

Debuggen kommt wenn am Tabellenblatt die Spalten und Zellen i Z1S1 umgeändert werden aber nur bei der Auswahl von Gültigkeit?

also in der Spalte wo ich schon die Auswahl probiert habe!
und wenn die Zellen und Spalten in Buchstaben sind dann kommt kein Fehler ?

hoffe es ist jetzt verständlich für dich ?
L.G. Supi

 

Datei ist defekt. 184 Byte!

 

hallo Ralf

heist das sie läst sich nicht öffnen ?
ich habe leider sons keine kleinere Datei das es funktioniert ?
was oder wie kann ich es sonst hochbringen?

 

Ich bin nicht Ralf.

Du wirst es doch wohl schaffen diese Datei zu komprimieren.
Zip oder rar oder ein anderes Format.

Diese Datei ist kaputt, da kann gar nichts drin sein, weil sie viel zu klein ist.
Öffne sie doch selbst.

MfG
Rainer

 

Sorry Rainer

Versuch 2 bei mir hat es nach entpacken funktioniert!

hoffe es jetzt

LG:Supi

 

Guten Morgen,
jetzt hat es funktioniert. Danke soweit.
Bist ja schon früh auf den Beinen. *Smilie

Zum Fehler:
Datengültigkeit hat bei F keine Liste hinterlegt.
Auch in der Spalte H und J fehlt die Auswahl.
Ebenso fehlen die Dropdownfelder in der Tabelle WLC.

Erstelle die Gültigkeitslisten und gut iss!
Welche Excel-Version verwendest du?

MfG
Rainer

 

Moin Rainer!
*reingrätschend*
Excel 2013
(steht im ersten Betreff *wink.gif*)

(Ist aber von der Forensoftware durchaus unglücklich gelöst)

Gruß Ralf

 

Hallo Rainer
Ich verwende Excel 2010 ; es funktioniert ja wenn die Spalten mit Buchstaben (A,B,C,D......) angezeigt werden! wenn Staat den Buchstaben
(1,2,3,4....) steht erscheint "DEBUGGEN" ?

das ist der Fehler !

Supi111