Makro funktioniert nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nachfrage

27.03.2007 14:00:32

mpb

AW: Nachfrage

27.03.2007 14:31:50

André

AW: Noch offen

27.03.2007 14:44:31

mpb

AW: Noch offen

28.03.2007 16:23:00

André

AW: Noch offen

31.03.2007 18:11:29

doppelter

Hallo Martin,
im Prinzip ganz einfach ich möchte nur die Formel aus der Zelle E4 bis in Zelle E8 kopieren und umgekehrt.
Im Detail:
E4 auswählen, rechte Maustaste und runterziehen, Untermenü öffnet sich und Zelle kopieren... auswählen fertig.
Das gleiche möchte ich mit E8 machen, nur umgekehrt.
Der Hintergrund ist folgender:
Ich habe ein Makro im Hintergrund laufen, der den Inhalt in den o.g. Zellen erkennt und die einzelnen Tabellenblätter dann so benennt. Allerdings merkt das Makro nicht immer wann ein neuer Wert eingetragen wurde, selbst nach Return nicht.
Mit dem kopieren der Zellen funzt es dann.
Hoffe ich konnte es etwas verdeutlichen, ansonsten bitte nochmal nachfragen.
Gruß
André

Hallo Martin,
habe den Code nochmal reingesetzt.
Da ich mich mit VBA nicht gut auskenne kann ich leider nicht erläutern an welcher Stelle der Code ein Fehler hat. Bzw. ob überhaupt ein Fehler vorhanden ist, da er funzt.
Mein Problem ist eigentlich nur, dass wenn sich in einer der Zellen ein Wert verändert er nicht sofort übernommen wird. Sprich ich gebe nichts in die Zellen ein sondern eine Formel holt sich die Werte.
D.h. für mich also, dass ich den Bereich E4:E8 immer manuell aktualisieren muss und ich die Formeln immer runter (von E4 bis E8) und hoch (von E8 zu E4) kopieren muss.
Dies wollte ich nun umgehen und mit Hilfe eines Makros umgehen, nur wie?
Gruß
André
Hier der Code:
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim ii As Integer
For ii = 4 To 8                                           ' Zeilen 4 bis 8
If Not Intersect(Cells(ii, 5), Target) Is Nothing Then ' Spalte 5 = E
If BlattNam_Pruefung(Cells(ii, 5)) Then
Sheets(ii + 1).Name = Cells(ii, 5)               ' Blätter 5 bis 9
Else
MsgBox "E" & ii & " enthält keinen gültigen Blattnamen: " & vbLf & Cells(ii, 5)
End If
End If
Next ii
End Sub

Function BlattNam_Pruefung(BlaNam As String) As Boolean
If BlaNam = "" Or Len(BlaNam) > 31 Then Exit Function
If Application.Evaluate("=SUM((MID(""" & BlaNam & """,COLUMN(1:1),1)" & _
"={"":"";""/"";""\"";""?"";""*"";""]"";""[""})*1)") > 0 Then Exit Function
BlattNam_Pruefung = True
End Function

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro funktioniert nicht

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread