Hallo Community,
<br><br>
ich bin neu hier und habe mir mittlerweile nur grundlegende Excel- und VBA - Kenntnisse angeeignet. Deshalb brauch ich eure Hilfe. <br><br>
<br><br>
Ich stehe vor folgendem Problem: <br><br>
<br><br>
Ist-Zustand: <br><br>
Über eine Userform kann ich das Jahr einstellen ( Y ), für welches ich verschiedene Werte ( z.B. den Umsatz) in die Tabelle übertragen will. <br><br>
Wenn noch kein Jahr angelegt ist, wird automatisch die Spalte H beschrieben. <br><br>
Wenn in H bereits ein Jahr eingetragen ist, dann wird verglichen, ob der Eintrag größer oder kleiner des eingestellten Wertes der Userform ( Y) ist. Bei kleiner, werden automatisch 3 neue Spalten angelegt und Y wieder in H geschrieben. Ist der Wert kleiner, erfolgt ein Eintrag in K, solange diese Spalte leer ist. Ist K belegt, wird nach der letzen belegten Spalte gesucht und 3 Spalten später das Jahr eingetragen. <br><br>
Dabei stehen die Jahreszahlen immer in Zeile 4. <br><br>
<br><br>
Beispiel : 1. Eingabe : 2019 --> wird in h4 geschrieben, weil leer <br><br>
2. Eingabe : 2020 --> fügt 3 neue Spalten ein und schreibt 2020 wieder in h4, damit wird 2019 auf <br><br>
k4 verschoben<br><br>
3. Eingabe : 2018 --> schreibt 2018 in k+3 und zeile 4 <br><br>
usw. <br><br>
<br><br>
Das Problem : <br><br>
<br><br>
Wenn ich aber nach 2018 das Jahr 2015 eingebe, dann wird 2015 in k+6 zeile 4 geschrieben. ( Das ist ja ok) <br><br>
Wenn nun allerdings die Eingabe 2017 folgt, wird diese rechts neben 2015, also in k+9 platziert. <br><br>
Schön wäre es, 2017 an die richtige Stelle zu sortieren, also neben rechts neben 2018 und links von 2015 <br><br>
Ich hoffe es war verständlich und dass ihr mir helfen könnt. <br><br>
<br><br>
Hier der Code dazu : <br><br>
<br><br>
Private Sub Button_Neu_Bilanz_Submit_Click()<br><br>
<br><br>
'Überträgt die Werte nach Nachfrage in entprechende Tabelle Bilanz<br><br>
<br><br>
Dim X As Integer<br><br>
Dim Y As Integer<br><br>
Dim z As Integer<br><br>
Dim w As Integer<br><br>
<br><br>
<br><br>
X = Worksheets("Bilanz").Range("H4").Value<br><br>
<br><br>
If e = 1 And d = 1 Or e = 1 And d = 0 Or e = 0 And d = 1 Then<br><br>
<br><br>
MsgBox " Bitte Jahr oder Multiplikator einstellen ", vbOKOnly + vbInformation, " Keine Eingabe "<br><br>
<br><br>
<br><br>
ElseIf e = 0 And d = 0 And MsgBox(" Wollen Sie die Werte übertragen ? ", vbYesNo + vbInformation, " Werte übertragen ") = vbYes Then<br><br>
<br><br>
Y = TextBox_Neu_Bilanz_Jahr.Value<br><br>
<br><br>
<br><br>
'legt neues Jahr an, wenn noch keine Eingaben vorhanden sind<br><br>
<br><br>
If X = 0 Then<br><br>
<br><br>
Tabelle3.Range("h4").Value = TextBox_Neu_Bilanz_Jahr.Text<br><br>
<br><br>
<br><br>
<br><br>
' neues Jahr links vom letzen anlegen<br><br>
ElseIf X > 0 Then<br><br>
<br><br>
If Y > X Then<br><br>
Columns("G:I").Insert Shift:=xlToLeft, CopyOrigin:=xlFormatFromLeftOrAbove<br><br>
<br><br>
<br><br>
' neues Jahr rechts anlegen, wenn es älter als das Jahr in Spalte h ist<br><br>
ElseIf Y < X Then<br><br>
z = Tabelle2.Range("K4").Value<br><br>
<br><br>
'Wenn rechts daneben noch kein Eintrag<br><br>
If z = 0 Then<br><br>
Tabelle3.Range("K4").Value = TextBox_Neu_Bilanz_Jahr.Text <br><br>
<br><br>
'Wenn aber schon ein Eintrag in k ,dann nach der letzten freien Zelle einschreiben<br><br>
<br><br>
ElseIf z > 0 Then<br><br>
<br><br>
w = Cells(4, Columns.Count).End(xlToLeft).Column + 3<br><br>
Tabelle3.Cells(4, w).Value = TextBox_Neu_Bilanz_Jahr.Text<br><br>
<br><br>
<br><br>
End If<br><br>
End If<br><br>
End If<br><br>
End If <br><br>
Vielen Dank schon mal im Voraus !!