Prüfen ob Register vorhanden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro3() ' Makro1 Makro ' Makro am 17.02.2006 von u19502 aufgezeichnet Dim Zeile As String Zeile = ActiveCell.Row Dim Teil As String Teil = ActiveCell Dim Baugruppe As String Range("J18").Select Baugruppe = ActiveCell Dim ws As Worksheet For Each ws In ThisWorkbook.Sheets If ws.Name = "Teil" Then Sheets(Teil).Select Range("U5:AC5").Select Selection.Copy Sheets(Baugruppe).Select Range("U" & Zeile).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Exit Sub End If Next ws MsgBox "Blatt mit dem Teil zuerst einfügen!!" End Sub

Tabellenblattname: DPHE-80178-810 J 15 16 Teilenummer 17 18 DPHE-80178-810 19 DPHE-80178-810 20 DPHE-80178-810 21 22 DPHE-80141-810 23 Benutzte Formeln: J18: =J19 Tabellenblattname: DPHE-95080-810 J 15 16 Teilenummer 17 18 DPHE-95080-810 19 DPHE-95080-810 20 DPHE-95080-810 21 22 DPHE-80178-810 23 DPHE-80184-810 Benutzte Formeln: J18: =J19 U5:AC5 sind bei beiden mit unterschiedlichen Zahlen befüllt. In welchem Blatt in welcher Zellle stehst du wen du das Makro startest, in welcher Zelle beim nächsten Aufruf? Irgendwie verstehe ich das ganze nicht. Gruß Reinhard ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Hallo
Juhui es funkt. Mit allen Tips und Fantasie. Danke.
Beim Start bin ich im ersten Register DPHE-95080-810 in der Zeile J22. Nun soll das Makro überprüfen, ob es ein Register hat mit den Namen in Zelle J22. Wenn ja, soll es dort ein paar Felder kopieren, zurück in das erste Register und auf gleicher Höhe (Zeile 22) in der Spalte U einfügen. Es können natürlich mehrer Register haben und auch in Zeile J sind immer mehr Zeilen als im Beispiel.
Danke
de Bruno


Sub Makro3()
Dim Zeile As String
Zeile = ActiveCell.Row
Dim Teil As String
Teil = ActiveCell
Dim Baugruppe As String
Baugruppe = ActiveSheet.Name
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name = Teil Then
Sheets(Teil).Select
Range("U5:AC5").Copy
Sheets(Baugruppe).Select
Range("U" & Zeile).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.Font.Bold = True
Range("C12").Select
Range("J" & Zeile).Select
Exit Sub
End If
Next ws
MsgBox "Blatt mit dem Teil zuerst einfügen!!"
End Sub

Sub Makro3() Dim Zeile As String Zeile = ActiveCell.Row Dim Teil As String Teil = ActiveCell Dim Baugruppe As String Baugruppe = ActiveSheet.Name Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets If ws.Name = Teil Then Sheets(Teil).Select Range("U5:AC5").Copy Sheets(Baugruppe).Select Range("U" & Zeile).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Selection.Font.Bold = True Range("C12").Select Range("J" & Zeile).Select Exit Sub End If Next ws MsgBox "Blatt mit dem Teil zuerst einfügen!!" End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread