mehrere Zellen in eine einzelne kopieren
12.07.2020 12:03:12
Sleepyhead
folgendes Problem muss ich beheben.
Ich habe in einem Worksheet 2 Listen, die im Endeffekt dasselbe aussagen.
Die Listen sind je 3 Zellen nebeneinander, die erste Zelle der Reihe enhält den Ort, die zweite das Datum und die dritte die Uhrzeit.
Nun muss es aber 2 Eingabemöglichkeiten geben.
In der einen Liste wird alles manuell eingegeben, diese funktioniert auch mit sämtlichen hinterlegten Makros.
Spalte B
Hamburg
at Sea
Spalte F
10.07.2020
11.07.2020
Spalte H
07:00-18:00
-19:00
Die Daten werden generell manuell eingegeben.
Das Problem besteht in der zweiten Tabelle, denn hier kann man die Daten aus einer externen Excel -Tabelle hineinkopieren, allerdings in einem anderen Format.
Spalte N Spalte O | Spalte P | Spalte Q
Cuxhaven (Germany) 07:00 -
Cuxhaven (Germany)
Cuxhaven (Germany) - 22:00
Spalte O
07:00
09:00
03:00
Spalte P
-
-
-
Spalte O
15:00
22:00
11:00
Was nun passieren soll, ist, dass man über einen "Update-Button" eine Funktion callen soll, die die Daten in der ersten Tabelle überschreiben und in dem Format der ersten Tabelle eintragen soll.
Zelle Spalte N -> Zelle Spalte B
Spalte F ist egal
und hier mein Problemkind:
Zellen der Spalten O+P+Q -> Zelle Spalte H
Per Button ne Funtion aufzurufen ist nicht das problem, nur 3 Zellen in eine zu mergen bekomme ich nicht hin.
Probiert habe ich das mit folgendem Code:
Public Sub MatrixUpdate()
Dim i As Integer
Dim n As Integer
n = 17
For i = 2 To i = 41
If Cells(i, 14).Value "" Then
Cells(n, 2).Value = Cells(i, 14).Value
Cells(n, 8).Value = Cells(i, 15).Value & "-" & Cells(i, 17).Value
End If
n = n + 1
Next i
End Sub
Für jede Hilfe diesbezüglich wäre ich sehr dankbar.