08.01.2022, 04:11
Hallo zusammen,
ich habe mir jetzt schon mehrfache Tutorials angesehen und komme trotzdem nicht weiter. Ich möchte aus einem Arbeitsblatt Daten in ein anderes übernehmen. Dabei würde ich mehrfach mit verschiedenen Auswahlen arbeiten. Hierbei muss aber im Arbeitsblatt, wo die Daten aus dem ursprünglichen Arbeitsblatt kommt, geprüft werden ob bereits Daten vorhanden sind und wenn Ja, soll die Daten unten angehängt werden.
Soweit so gut. Im Test mit folgenden Code habe ich bereits herausgefunden wie ich prüfen kann ob die Spalte leere ist und wenn nicht das die Selektion nach unten geht und dort eingefügt wird. Funktioniert aber dann mit meinen Daten bzw. der Selektion nicht. Was mache ich falsch?
Oben zu sehen mein Test. Ich prüfe ob die Zelle B1 nicht Leer ist. Wenn dem so ist, soll das Wort Banana angefügt werden (^^). Im nächsten Schritt prüfe ich ob B1 Leer ist und füge Apfel in die Zeile an. Nun zum Beispiel mit meinen Daten:
Warum auch immer wird bei dem Code die Auswahl aus dem ursprünglichen Arbeitsblatt wild im neuen verteilt bzw. landet die kopierte Selektion bspw. in Spalte H, Zeile 15. Ich kann mir das nicht erklären.
ich habe mir jetzt schon mehrfache Tutorials angesehen und komme trotzdem nicht weiter. Ich möchte aus einem Arbeitsblatt Daten in ein anderes übernehmen. Dabei würde ich mehrfach mit verschiedenen Auswahlen arbeiten. Hierbei muss aber im Arbeitsblatt, wo die Daten aus dem ursprünglichen Arbeitsblatt kommt, geprüft werden ob bereits Daten vorhanden sind und wenn Ja, soll die Daten unten angehängt werden.
Soweit so gut. Im Test mit folgenden Code habe ich bereits herausgefunden wie ich prüfen kann ob die Spalte leere ist und wenn nicht das die Selektion nach unten geht und dort eingefügt wird. Funktioniert aber dann mit meinen Daten bzw. der Selektion nicht. Was mache ich falsch?
Code:
If Not Range("B1").Value = "" Then
Range("B" & Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = "Banana"
End If
If Range("B1").Value = "" Then
Range("B1").Select
ActiveCell = "Apfel"
End IfOben zu sehen mein Test. Ich prüfe ob die Zelle B1 nicht Leer ist. Wenn dem so ist, soll das Wort Banana angefügt werden (^^). Im nächsten Schritt prüfe ich ob B1 Leer ist und füge Apfel in die Zeile an. Nun zum Beispiel mit meinen Daten:
Code:
Sub HR_to_KAPA()
If Range("B1").Value = "" Then
'--------------------------------------------------------------------------
Sheets("HR").Select
'--------------------------------------------------------------------------
Range("D5:D9").Select
Selection.Copy
Sheets("PEM Upload").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
If Not Range("B1").Value = "" Then
'--------------------------------------------------------------------------
Sheets("HR").Select
'--------------------------------------------------------------------------
Range("D5:D9").Select
Selection.Copy
Sheets("PEM Upload").Select
Range("B" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
'--------------------------------------------------------------------------
End SubWarum auch immer wird bei dem Code die Auswahl aus dem ursprünglichen Arbeitsblatt wild im neuen verteilt bzw. landet die kopierte Selektion bspw. in Spalte H, Zeile 15. Ich kann mir das nicht erklären.
