Problem mit VB: FileCopy SourceFile, DestinationFile ' Copy source to target.

Ich könnte bei der Deaktivierung von Tabelle Verwaltung eine Schleife über L8:L207 laufen lassen, die prüft ob zb. Beispiel

Dieser Satz lässt mich mutmaßen das Du mit "Tabelle" keine wirkliche Tabelle sondern ein Tabellenblatt meinst.

Wenn also im Blatt "Monat" und im Blatt "Verwaltung" die Zeilen gleich sind, dann kannst Du doch das Change Ereignis benutzen...

Andreas.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim Source As Range, Dest As Range

  'Was in Spalte L geändert?

  Set Target = Intersect(Target, Range("L:L"), Me.UsedRange)

  'Nein, dann raus

  If Target Is Nothing Then Exit Sub

  'Jede geänderte Zelle

  For Each Source In Target

    'Referenziere die gleiche Zelle in "Monat" Spalte J

    Set Dest = Worksheets("Monat").Range("J" & Source.Row)

    'Wert reinschreiben

    Dest.Value = Source.Value

  Next

End Sub

Das mit dem Sperren/Entsperren würde ich mir überlegen, das dauert...

Ich gehe davon aus das Du weißt was Du mit dem Code unten machen musst!?

Andreas.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Source As Range, Area As Range

'Nur wenn eine Zelle geändert

If Target.Count > 1 Then Exit Sub

'Nur wenn in Spalte K geändert

Set Target = Intersect(Me.Columns("K"), Target)

If Target Is Nothing Then Exit Sub

'Nur ab Zeile 7

If Target.Row < 7 Then Exit Sub

'Nur wenn was drin ist

If Target.Value = "" Then Exit Sub

'Sicher ist sicher...

On Error GoTo Errorhandler

'Entsperren

Me.Unprotect

'Events aus, sonst rufen wir uns selber auf

Application.EnableEvents = False

'H:R von oben, ausser K

Set Source = Intersect(Target.Offset(-1).EntireRow, Me.Range("H:J,L:R"))

For Each Area In Source.Areas

Area.Resize(2).FillDown

Next

'G:S nach unten

Set Source = Intersect(Target.EntireRow, Me.Range("G:S"))

Source.Resize(2).FillDown

'Sperren

Me.Protect

Errorhandler:

'Fertig für die nächste Runde

Application.EnableEvents = True

End Sub

Hallo Claus



Danke für Dein Feedback. Vermutlich bin ich schon wieder in einen Fehler gelaufen. Ich habe da wohl noch etliche Knoten drin. Ein kleines Problem ist, dass ich bereits einen "Private Sub Worksheet_Change(ByVal Target As Range)" habe. Einen zweiten für die
gleiche Tabelle geht glaube ich nicht oder? Der vorhandene sieht so aus (hab ich auch von dir ).



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$D$8" Then Exit Sub



Dim i As Integer

Dim myStr As String



Application.EnableEvents = False

For i = 1 To Len(Target) Step 2

myStr = myStr & Mid(Target, i, 2) & "-"

Next

Target = UCase(Left(myStr, Len(myStr) - 1))

Application.EnableEvents = True

End Sub



Ich bin überhaupt kein Makro-Crack und habe deshalb dein Teil, den du obern beschrieben hast am Ende dieses Makros anzufügen (also vor dem End Sub). Das hat dann in etwa so ausgesehen:



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$D$8" Then Exit Sub



Dim i As Integer

Dim myStr As String



Application.EnableEvents = False

For i = 1 To Len(Target) Step 2

myStr = myStr & Mid(Target, i, 2) & "-"

Next

Target = UCase(Left(myStr, Len(myStr) - 1))

Application.EnableEvents = True



If Intersect(Target, Range("B8:C8")) Is _

Nothing Then Exit Sub



Application.EnableEvents = False

On Error GoTo ENDE

With Target

.Value = UCase(.Value)

With .Font

.Name = "Calibri"

.Size = 11

End With

End With

ENDE:

Application.EnableEvents = True

End Sub



Das hat dann die Wirkung, dass die Zelle C8 als gesperrt markiert wird und in B8 eigentlich die Formatierung nicht übernommen wird.



Vielleicht gibt es ja eine Möglichkeit, dass du dir das File mal anschauen kannst und mir sagen kannst, wo ich überall Mist gebaut habe und wie ich es am Besten korrigiere.



Ich hab momentan keine Ideen mehr dazu. Ansonsten gebe ich dann halt die Weisung durch, dass alles eingegeben werden muss und nix ist mit "Copy - Paste".



Gruss

Harri

Steffen Brose schrieb am 15.07.2010 12:33 Uhr:

beim Copy mehrerer Werte (Zeilen) in G:G aktualsiert sich "C" aber nicht - immer nur einzeln - ginge da noch was anzupasssen?

Siehe unten.

Ich schränke die Änderungen in Worksheet_Change gerne auf maximal eine Zelle ein, um zu verhindern, dass das Makro bei Massenänderungen sehr lange läuft. Wenn der User z.B. eine ganze Spalte markiert und dann <ENTF> drückt, können das ganz schön viele Zellen
sein die abgearbeitet werden müssen. Denn auch das Löschen eines Zellinhalts ist ja eine Änderung die Worksheet_Change auslöst.

Peter

Private Sub Worksheet_Change(ByVal Target As Range)

Set Target = Intersect(Target, [G:G])

If Target Is Nothing Then Exit Sub

For Each Target In Target

Target.EntireRow.Cells(, "C").IndentLevel = Target

Next

End Sub

Naja, wenn Du das alles schon hinbekommen hast...

Also Du kennst den Pfad der Bilddatei, Du weißt wohin das Bild soll, dann nimm doch einfach FileCopy!?

Andreas.

Sub Test()

FileCopy "C:\temp\bild.bmp", "C:\whatever\qweqwe.bmp"

End Sub