Office: (Office 365) per VBA in Datei springen und wieder in Ausgangs Datei zurück

Hallo Karin,
wir reden glaube ich aneinander vorbei.
z.b. Zähler Nr 1234 ist vorhanden wird angezeigt und lässt sich auswählen. past
nun möchte ich aber einen neuen Zähler anlegen der nicht in der Liste ist und das klappt nicht.
Gruß
Martin

 

Hi Martin,

kann ich so nicht nachvollziehen. Da musst du schon mal deine beiden Mappen (oder zumindest eine abgespeckte Version davon) hochladen und genau deine Schritte beschreiben, wie es zu dem Fehler kommt.

---

 

Hallo Karin,
wie gewünscht
Gruß
Martin

 

Und bitte die Datei(en) so aufbereiten dass die Excel-Instanz sichtbar ist und das UserForm nicht den gesamten Bildschirm einnimmt. Außerdem alles, was nicht mit dem Problem zusammenhängt, aus den Mappen löschen, weil sonst für einen Außenstehenden alles viel zu unübersichtlich ist.

---

 

Sorry überlesen
wenn ich das Userfom "Zähler_Stände_eintragen" gestartet habe werden in der Combobox "ZäherNr" die Zählernummern aus dem Vorjahr angezeigt. will ich aber in die Combobox eine neue noch nicht existieren Nummer eingeben will dann geht das nicht.
Gruß
Martin

 

Hi Martin,

In welcher Mappe und wie wird das UF gestartet?

---

 

Hallo Karin
entschuldige das es nicht so rund läuft.
Habe die Dateien auf ein minimum reduziert.
Gestartet wird das UserForm von der Datei "Abrechnung"
Gruß
Martin

 

schei......
zweite Datei vergessen.
Gruß

 

Hi Martin,

ändere mal die Eigenschaft Style auf "0 - fmStyleDropDownCombo"

---

 

Hallo Karin,
hatte ich auch schon versucht, bringt leider nicht das Ergebnis.
Aber ich glaube ich habe was gefunden. Habe aus dem ZählerNr_Change event ein ZählerNr_Enter event gemacht, und dann klappt es. Kann auch damit leben.
Vielen Dank für deine Geduld und Ideen.
Wir haben bestimmt irgendwann wieder das Vergnügen.
Gruß
Martin

 

Kann ich in deiner hochgeladenen Mappe nicht bestätigen - wenn eine Zahl ausgewählt ist, kann man problemlos eine andere, auch nicht in der Liste vorhandene Zahl eintragen. Aber möglicherweise möchtest du etwas ganz anderes, das ich nicht nachvollziehen kann.

---

 

Hallo Karin,
sorry das ich mich erst jetzt melde.
Jetzt bin ich irritiert!
Du hast zwar recht das man eine andere zahl eingetragen kann , aber nur immer so das ich eine Ziffer eintrage, danach muss ich wieder in die Combobox klicken dann geht die nächste Ziffer und dann wieder anklicken usw.
Mühselig
Irgend eine Einstellung, bei dir, muss wohl anders sei wie bei mir.
Einerseits würde ich gerne den Grund wissen, warum es bei dir geht und bei mir nicht, andererseits will ich dich nicht länger Belästigen . Habe ja geschrieben das ich eine andere Lösung habe mit der ich Leben kann.
Gruß
Martin

 

Hi Martin,

im Anhang meine Version.

---

 

Hallo Karin,
jetzt ist es mir klar woran es gelegen hat.
du hast wohl den Sub von _Change() auf _Afterupdate() geändert.
Damit funktioniert es einwandfrei. Die Änderung muss ich wohl überlesen haben.
Also nochmal Danke für deine Hilfe und Geduld.
Gruß
Martin

 

Hallo Karin,
muss dich doch nochmals Belästigen.
Wie ich schon geschrieben habe, funktioniert dein Code aus Post #10.
Leider gibt es doch einen kleines Problem.
Es soll nach dem ich die Daten übertragen habe die alten Daten im UserForm löschen und in die TexBox "ZählerNr" springen
Löschen klappt
Springen leider nicht.
Springen mache ich ZählerNr.Set.Focus
Habe dir den fertig Code angefügt.
Vielleicht könntest du mal drüber schauen? Vielleicht ist ja eine Code Zeile an der falschen stelle.

Code:

Private Sub CommandButton1_Click()
 
'Worksheets("Zählerinfos").AutoFilterMode = False
Dim last As Variant
Dim c As Control
Dim sPfad As String
  sPfad = "C:\Users\guent\Documents\martin\neuer Versuch Abrechnung\Ertingen Zählerstände.xlsm"
   With Workbooks.Open(sPfad)
    With Worksheets("Zählerinfos")
 
last = Worksheets("Zählerinfos").Cells(Rows.Count, 1).End(xlUp).Row + 1
   'ZählerNr
  Cells(last, 1).Value = CLng(ZählerNr)
   'Datum von
   Cells(last, 4).Value = CDate(Datum_Von)
   'Datum bis
   Cells(last, 5).Value = CDate(Datum_Bis)
   'Stockwerk
   Cells(last, 3).Value = Stockwerk
   'Zählerart
   Cells(last, 2).Value = Zählerart
   'Stand bis KWh
 If Stand_bis_KW <> "" Then
   Cells(last, 8).Value = CDec(Stand_bis_KW)
   End If
   'Stand bis m³
 If Stand_bis_m3 <> "" Then
   Cells(last, 9).Value = CDec(Stand_bis_m3)
   End If
   'Stand bis HT
 If Stand_bis_HT <> "" Then
   Cells(last, 12).Value = CDec(Stand_bis_HT)
   End If
   'Stand bis NT
 If Stand_bis_NT <> "" Then
   Cells(last, 13).Value = CDec(Stand_bis_NT)
 End If
 End With
 .Close True
End With
 'löscht alle Inhalte der UserForm
 
For Each c In Zähler_Stände_eintragen.Controls
If TypeOf c Is MSForms.TextBox Then
c = ""
End If
If TypeOf c Is MSForms.ComboBox Then
c = ""

End If
Next
ZählerNr.SetFocus
End Sub

Gruß u. Danke
Martin