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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 282822
Url: https://administrator.de/contentid/282822
Printed on: April 19, 2024 at 22:04 o'clock
3 Comments
Latest comment
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
