3
Excel Zellen übernehmen
Hallo,
ich möchte Daten von einem Tabellenblatt per Makro auf ein anderes übernehmen. Jetzt habe ich folgendes gemacht....
Sub übernehmen()
Dim wksOrig As Worksheet
Dim wksStore As Worksheet
Dim lngLastRow As Long
Set wksOrig = Worksheets("KH FO 101")
Set wksStore = Worksheets("Übersicht CCP - Laufzettel")
With wksStore
lngLastRow = IIf(.Cells(Rows.Count, 1) = "", .Cells(Rows.Count, 1).End(xlUp).Row + 1, Rows.Count)
.Cells(lngLastRow, 1) = wksOrig.Range("D7")
.Cells(lngLastRow, 1).NumberFormat = "m/d/yyyy"
.Cells(lngLastRow, 2) = wksOrig.Range("K7")
.Cells(lngLastRow, 3) = wksOrig.Range("E12")
.Cells(lngLastRow, 4) = wksOrig.Range("E14")
.Cells(lngLastRow, 5) = wksOrig.Range("E22")
Funktioniert so weit....
HIER JETZT MEIN PROBLEM!
Ich habe nun 3 Zellen in denen etwas steht. Enthält einer der Zellen einen Wert soll ein bestimmter Text der in einer anderen Zelle steht kopiert werden
d.h.:
funktioniert irgendwie nicht?!
End With
Set wksStore = Nothing
Set wksOrig = Nothing
End Sub
Mit freundlichen Grüßen
Florian
ich möchte Daten von einem Tabellenblatt per Makro auf ein anderes übernehmen. Jetzt habe ich folgendes gemacht....
Sub übernehmen()
Dim wksOrig As Worksheet
Dim wksStore As Worksheet
Dim lngLastRow As Long
Set wksOrig = Worksheets("KH FO 101")
Set wksStore = Worksheets("Übersicht CCP - Laufzettel")
With wksStore
lngLastRow = IIf(.Cells(Rows.Count, 1) = "", .Cells(Rows.Count, 1).End(xlUp).Row + 1, Rows.Count)
.Cells(lngLastRow, 1) = wksOrig.Range("D7")
.Cells(lngLastRow, 1).NumberFormat = "m/d/yyyy"
.Cells(lngLastRow, 2) = wksOrig.Range("K7")
.Cells(lngLastRow, 3) = wksOrig.Range("E12")
.Cells(lngLastRow, 4) = wksOrig.Range("E14")
.Cells(lngLastRow, 5) = wksOrig.Range("E22")
Funktioniert so weit....
HIER JETZT MEIN PROBLEM!
Ich habe nun 3 Zellen in denen etwas steht. Enthält einer der Zellen einen Wert soll ein bestimmter Text der in einer anderen Zelle steht kopiert werden
d.h.:
funktioniert irgendwie nicht?!
End With
Set wksStore = Nothing
Set wksOrig = Nothing
End Sub
Mit freundlichen Grüßen
Florian
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 282822
Url: https://administrator.de/forum/excel-zellen-uebernehmen-282822.html
Ausgedruckt am: 18.04.2025 um 05:04 Uhr
3 Kommentare
Neuester Kommentar
Hallo,
was genau funktioniert nicht?
Wie ist das zweite Tabellenblatt aufgebaut?
Gruß Thejoker2305
was genau funktioniert nicht?
Wie ist das zweite Tabellenblatt aufgebaut?
Gruß Thejoker2305
Das 2. Tabellenblatt ist eigentlich erstmal uninteressant, da hier immer die letzte leere Zeile beschrieben werden soll.
Ich möchte in Spalte B lediglich prüfen wo ist das Kreuz gesetzt und nimm dann den dazugehörigen Text und kopiere Ihn an
in Tabelle 2 in die letzte Zeile und die jeweilige Spalte.... in diesem Fall Spalte 6.
MfG
Florian
Ich möchte in Spalte B lediglich prüfen wo ist das Kreuz gesetzt und nimm dann den dazugehörigen Text und kopiere Ihn an
in Tabelle 2 in die letzte Zeile und die jeweilige Spalte.... in diesem Fall Spalte 6.
MfG
Florian
01. For each cell in Worksheets("KH FO 101").Range("B3:B5")
02. If cell.Value <> "" then
03. .Cells(lngLastRow,6).Value = cell.Offset(0,1).Value
04. Exit for
05. End if
06.Next
02. If cell.Value <> "" then
03. .Cells(lngLastRow,6).Value = cell.Offset(0,1).Value
04. Exit for
05. End if
06.Next
