Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...).
Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.
Dim emptyRow As Long
'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value
If OptionButton1.Value = True Then
Cells(emptyRow, 6).Value = "1. Halbjahr"
End If
If OptionButton2.Value = True Then
Cells(emptyRow, 6).Value = "2. Halbjahr"
End If
Me.Label7 = "Speichern erfolgreich!"
End Sub
Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc.
Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis.
Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen...
Formel lautet:
=SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.)
Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.
Sub SVerweis_HC()
'
' SVerweis_HC Makro
'
'
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
Range("H1319").Select
End Sub
Kann hier wer helfen?