Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > Fragen zu Excel/VBA > Falsche Spalten nach erneutem Speichern
Hier kannst Du Fragen speziell zu Deinem Problem stellen
In diesem Board befinden sich 1681 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH, .
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline  Falsche Spalten nach erneutem Speichern Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
15.2.2018 - 13:51 Uhr
Posts



Hallo,

hier bin ich mal wieder.

Mein Problem: Die Daten in einer Userform kann ich in andere Tabellen verschieben, sodass sie in der Userform gelöscht sind.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub CommandButton23_Click()
 
Dim a As Integer
Dim msg
Dim sSearch As String
Dim cLetzte As Long
Dim i As String
Worksheets("V-Daten").Activate
 
sSearch = TextBox115.Text
Set rngFind = Columns("A:A").Find(What:=sSearch, LookAt:=xlWhole, LookIn:=xlValues)
a = Range(rngFind.Address).Row
 
If MsgBox("Thin Client versenden/verwerten?", vbYesNo) = vbNo Then
    Exit Sub
Else
    i = Application.InputBox(prompt:="Grund:", Type:=1 + 2)
    Range(Cells(a, "R"), Cells(a, "W")).Copy
   
    With Sheets("Abgang")
    cLetzte = .Cells(Rows.Count, 10).End(xlUp).Row + 1
    .Cells(cLetzte, 1) = .Cells(cLetzte - 1, 1) + 1
    .Cells(cLetzte, 10).PasteSpecial xlPasteValues
    .Cells(cLetzte, 2).Value = "Abgang"
    .Cells(cLetzte, 4).Value = "Thin Client"
    .Cells(cLetzte, 7).Value = ComboBox3.Text
    .Cells(cLetzte, 8).Value = ComboBox4.Text
    .Cells(cLetzte, 15).Value = i
    .Cells(cLetzte, 16).Value = "./."
    .Cells(cLetzte, 17).Value = Date
    End With
   
    Range(Cells(a, "Q"), Cells(a, "X")).ClearContents
End If
 
TextBox26.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox45.Text = ""
TextBox174.Text = ""
 
End Sub
 


Jetzt gebe ich neue Daten ein und speichere sie ab

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub CommandButton35_Click()
Dim Label As Integer
 
If Not rngID Is Nothing Then
    'IGEL
    rngID.Offset(0, 17).Value = TextBox26.Text 'Hersteller
    rngID.Offset(0, 18).Value = TextBox6.Text 'Modell
    rngID.Offset(0, 21).Value = TextBox7.Text 'S/N
    rngID.Offset(0, 20).Value = TextBox8.Text 'MAC
    rngID.Offset(0, 19).Value = TextBox9.Text 'InventarNr
    rngID.Offset(0, 22).Value = TextBox45.Text 'Gerätename
    rngID.Offset(0, 23).Value = TextBox174.Text 'Kaufdatum
   
If rngID.Offset(0, 18) Like "*" Then
    'Wieviele Spalten nach Eingabe; welcher Text
    If rngID.Offset(0, 18).Value = "" Then rngID.Offset(0, 16).Value = " "
    If rngID.Offset(0, 18).Value <> "" Then rngID.Offset(0, 16).Value = "Thin Client"
End If
    Else
    rngFind.Value = ComboBox1.Text
    rngFind.Offset(0, 16).Value = TextBox26.Text 'Hersteller
    rngFind.Offset(0, 17).Value = TextBox6.Text  'Modell
    rngFind.Offset(0, 20).Value = TextBox7.Text  'S/N
    rngFind.Offset(0, 19).Value = TextBox8.Text  'MAC
    rngFind.Offset(0, 18).Value = TextBox9.Text  'InventarNr
    rngFind.Offset(0, 21).Value = TextBox45.Text 'Gerätename
    rngFind.Offset(0, 22).Value = TextBox174.Text 'Kaufdatum
   
If rngFind.Offset(0, 17) Like "*" Then
    If rngFind.Offset(0, 17).Value = "" Then rngFind.Offset(0, 15).Value = " "
    If rngFind.Offset(0, 17).Value <> "" Then rngFind.Offset(0, 15).Value = "Thin Client"
End If
    End If
    ActiveWorkbook.Save
    MsgBox ("Eingabe gespeichert!")
   
End Sub
 


Abspeichern soll er mir in die gleichen Spalten, aus der auch die Daten gelöscht wurden, tut er aber nicht, es wird eine Spalte vorher schon abgespeichert. Wenn ich aus dem Datensatz herausgehe und diesen neu aufrufe und dann die Daten eingebe, speichert er alles richtig ab.

Wo ist der Haken?

Vielen Dank schon einmal für Eure Hilfe, die mir bis jetzt immer weitergeholfen hat.

Gruß
Anderl


 ist offline  : Falsche Spalten nach erneutem Speichern Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
18.2.2018 - 16:25 Uhr
Posts



Hi,

ich begreif dein Problem nicht - warum willst du etwas kopieren, das du nicht mehr brauchst ?
Überschreib die Daten doch einfach.

Gruß Roland

 ist offline  : Falsche Spalten nach erneutem Speichern Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
1.3.2018 - 14:13 Uhr
Posts



Hallo Roland,

ja, dass wäre einfach. Aber aus buchhaltungstechnischen Gründen müssen die Daten vorgehalten bleiben.

Gruß
Anderl

 ist offline  : Falsche Spalten nach erneutem Speichern Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
1.3.2018 - 16:28 Uhr
Posts



Hi,

in der Originalprogrammierung gab es in der Userform einen Button 'Ändern' schau dir den Code da doch einfach nochmal an. Der sollte die Daten eigentlich nur an den notwendigen Stellen überschreiben, wenn ich alles richtig verstanden habe.

Gruß Roland

Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek