Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler beim speichern

Fehler beim speichern
05.04.2016 09:45:55
Alex
Hallo Community,
ich habe folgendes Problem. Ich habe eine Userform gebaut, um Daten in meine Excel Tabelle einzugeben und zu verändern. Dafür möchte ich aus einem Kombinationsfeld den Namen auswählen und die Daten zur Person automatisch in Textfelder schreiben. Falls Änderungen gemacht werden sollen diese mittels des Speichern Buttons wieder in die Tabelle geschrieben werden.
Leider funktioniert das Speichern nicht zuverlässig. Wenn ich z.B. eine Person auswähle und nur den Vorname oder nur den Wohnort ändere, wird dieser nicht gespeichert. Es erscheint immer wieder der alte Name.
Könnt Ihr mir helfen. Hier ist die Datei: https://www.herber.de/bbs/user/104768.xlsm
Vielen Dank.
Beste Grüße
Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler beim speichern
05.04.2016 10:05:32
ChrisL
Hi Alex
z.B. so...
Public intAktiveZeile As Integer
Public b As Boolean
Private Sub CMB_Person_Change()
If Not b Then
intAktiveZeile = CMB_Person.ListIndex + 2
With Worksheets("Tabelle1")
TXB_Name = .Cells(intAktiveZeile, 1).Value
TXB_Vorname = .Cells(intAktiveZeile, 2).Value
TXB_Ort = .Cells(intAktiveZeile, 3).Value
End With
End If
End Sub


Private Sub CMB_Person_DropButtonClick()
With Worksheets("Tabelle1")
CMB_Person.RowSource = .Range("A2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Address
End With
End Sub


Private Sub CMD_Save_Click()
b = True
With Worksheets("Tabelle1")
.Cells(intAktiveZeile, 1).Value = TXB_Name
.Cells(intAktiveZeile, 2).Value = TXB_Vorname
.Cells(intAktiveZeile, 3).Value = TXB_Ort
End With
b = False
End Sub

Es geht darum zu verhindern, dass bei einer Änderung das Change-Ereignis der ComboBox anspringt. Habe es jetzt mal mit einer Variable "b" gelöst.
cu
Chris

Anzeige
AW: Fehler beim speichern
05.04.2016 12:03:41
Alex
Hallo Chris,
vielen Dank für deine Antwort.
Könntest Du mir die Zeile "If Not b Then" genauer erklären?
Alex

AW: Fehler beim speichern
05.04.2016 12:54:22
ChrisL
Hi Alex
Die Zeile könnte auch lauten: If b = False Then
Im Click Ereignis wird auf True umgeschaltet, die Wenn-Bedingung im Change ist damit nicht erfüllt und der betreffende Code wird übersprungen.
cu
Chris

301 Forumthreads zu ähnlichen Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Anzeige
Kann nicht speichern!!!! BIG PROB
Maris

Hi zusammen,
habe großes Problem. Die Datei an der ich heute den ganzen Tag gearbeitet habe, läßt sich nach einem Excelfelhler nicht mehr speichern. Kam Meldung autospeichern deaktiviert. Wenn ich normal speichern will, dann kommt die Meldung Datei nicht gespeichert und er bricht ab. Wer ka...
10.11.2008 18:16:00
Thread-ID: 1023308
5 Beiträge
XML Datei kann nicht geöffnet werden
Josef

Guten Morgen!
Ich wollte mit folgendem code (gefunden in der Recherche) eine xml Datei aus einem Arbeitsblatt erstellen:
Sub Erzeuge_xml() Dim Original As String Dim Kopie As String Dim t As Integer If Len(Dir("H:\Statistik HVB", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden...
18.11.2008 07:44:00
Thread-ID: 1025458
2 Beiträge
Anzeige
Fehlermeldung "Objekt kann nicht entladen werden"
Nik

Hallo.
Bin am Verzweifeln.
Mein excel ist im VB-Editor offen und ich versuche, das Projekt zu speichern.
Es kommt immer wieder die Fehlermeldung, dass ich excel nicht speichern kann.
Im VB-Editor versuche ich, die Userform frmStart zu schließen.
Es kommt die Fehlermeldung La...
24.02.2009 13:59:02
Thread-ID: 1053502
2 Beiträge
Tabelle läßt sich nicht mehr speichern
Judith


Hallo,
habe eine ziemlich große Excel Tabell (3,499KB) mit 10 tabellenblättern, in die ich jeden Monat Werte eintrage. Bis dato hat immer alles funktioniert. Seit heute läßt sie sich nicht mehr speichern. Die angehängte Fehlermeldung erscheint.
Hatte das Problem schon mal mit Exce...
10.03.2009 15:31:15
Thread-ID: 1058724
6 Beiträge
Datei speichern, wenn vorhanden nicht überschreibe
Elias

Hallo Forum,
ich brauche mal wieder ein wenig Hilfe.
Unten findet Ihr den Code eines Buttons, mit dessen Hilfe ich eine Datei unter einem
sich aus der Excel-Datei ergebenden Namen in einem fix vorgegebenen Pfad im Datei-
system anlege.
Nun bestünde theoretisch die Möglichkei...
17.03.2009 15:24:49
Thread-ID: 1061133
3 Beiträge
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

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
1
4
1
2
1
5
2
2
2
8
2
1
3
5
2
9
3
1
4
1
3
5
1
19