da ich hier schon oft die Lösung gefunden habe, hoffe ich auch diesmal, daß Ihr mir helfen könnt.
Ich habe 2 VBA-Codes die ich gerne miteinander kombinieren möchte, sodaß am Ende folgendes in der Zelle steht:
2023_11_30_K_
Ich dachte ich könnte es mit "and" oder "&" verbinden, aber da scheine ich mich geirrt zu haben.
Ich bin auch sicher, daß man den Code schöner schreiben könnte, aber ich bin noch Anfänger, daher bitte um Nachsicht :-)
Vielen Dank
VG
Andreas
Sub Schaltfläche1_Klicken()
'1. Code
Sheets("Tabelle2").Select
Range("A1").Value = Format(Date, "yyyy_mm_dd_")
'2. Code
Sheets("Tabelle1").Select
If Cells(1, 1).Value = "Kauf" Then
Sheets("Tabelle2").Select
Cells(1, 1).Value = "K_"
End If
Sheets("Tabelle1").Select
If Cells(1, 1).Value = "Verkauf" Then
Sheets("Tabelle2").Select
Cells(1, 1).Value = "VK_"
End If
Sheets("Tabelle1").Select
If Cells(1, 1).Value = "Verkauf Einzelkunde" Then
Sheets("Tabelle2").Select
Cells(1, 1).Value = "VK_"
End If
Sheets("Tabelle2").Select
Range("A1").Select
End Sub