Wie der Betreff schon sagt, versuche ich gerade einen Code zu finden und abzändern der mir eine Information "X" an Variable Stelle "Y" auf Befehl "Z" schreibt.
Das eigentliche Vorhaben:
Ich möchte das eine Information aus dem Tabellenblat "Zusammenfassung" an das Ende einer Tabelle auf dem Tabellenblatt "Messwerte" geschrieben wird. So weit so klar und dafür gibt es viele beispiele im Netz. Wichtig ist aber das die Spalte in die die Information im Tabellenblatt "Messwerte" geschrieben werden soll abhängig von einer Auswahl in der Combobox1 ist.
Mein Lösungsansatz:
Ich war mal so vermessen zu glauben das man in VBA elemente aus Excel verwenden kann also habe ich zum Variabel gestalten der Spalte ein INDIREKT(SVERWEIS(;;;)) Funktion benutzt. Was nicht klappt.
Ich denke das was ich machen will wird durch den dilitantischen Code deutlich und ich hoffe es kann mir jemand helfen. Gruß Martin
Private Sub CommandButton1_Click()
'Datum
Sheets("Zusammenfassung").Select
Range("B33").Select
Selection.Copy
Sheets("Messwerte").Select
For i = Cells(Rows.Count, INDIREKT(SVERWEIS(ComboBox1.Value;Zusammenfassung!A8:AB25;23; _
falsch))).End(xlUp).Row To 1 Step -1
If Cells(i, INDIREKT(SVERWEIS(ComboBox1.Value;Zusammenfassung!A8:AB25;23;falsch))).Text " _
" Then
Cells(i + 1, INDIREKT(SVERWEIS(ComboBox1.Value;Zusammenfassung!A8:AB25;23;falsch))).Select
Exit For
End If
Next i
ActiveSheet.Paste
End Sub