Excel Makro

Nun auch als registrierter Benutzer.

Hallo Viktor

Ein Beispiel

Liebe Grüße Tanto :p

Was ich allerdings nicht verstehe
Du erstellst eine Neue Tabelle (die ja leer ist)und möchtest die nächste freie Spalte ermitteln 8O

ActiveSheet.Cells(1, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone

Danke für das beispiel.

es ist so, in blatt eins wird eine Reihe von Messdaten eingeführt. diese werden gegen einen standart verglichen. dann laufen einige makros in sachen Etikettendruck, und dann soll dieser datensatz in ein anderes Blatt verschoben werden um dort dann als "Archiv" langfristig gespeichert werden. daher brauche ich dort die nächste leere Spalte.

Ich hoffe das klärt deine Frage. vieleicht hilft das auch.

Nun stellt sich ein weiteres problem:

es soll eine schaltfläche da sein, die nur dann da ist wenn ein bestimmter wert in Zelle E25 vorhanden ist, ist dort kein ok drinn, soll die Schaltfläche nicht sichtbar sein...

Na ja so ist das wenn man sich von Problem zu problem arbeitet.

Gruß Viktor:-)

Hallo Viktor

Ein Beispiel mit einem Element der Steuerelement-Tollbox

Liebe Grüße Tanto :razz:

Einzufügen
Alt+F11/Projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Cells(1, 1) = "" Then
ActiveSheet.Shapes("CommandButton1").Visible = False
Else
ActiveSheet.Shapes("CommandButton1").Visible = True
End If
Application.EnableEvents = True
End Sub

Hallo Tanto,

danke für das beispiel, ich werde es morgen früh versuchen.

Gruß Viktor

Hallo Tanto,

ich stehe im Wald....

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Cells(1, 1) = "ok" Then
ActiveSheet.Shapes("CommandButton1").Visible = False
Else
ActiveSheet.Shapes("CommandButton1").Visible = True
End If
Application.EnableEvents = True
End Sub

Private Sub CommandButton1_Click()
Testdruck

End Sub

Muss das nun so dort stehen, bzw, wie bekomme ich den Bezug auf die Zelle E 25?

Gruß Viktor Polansky

Hallo Victor

Cells(DeineZeile, DeineSpalte)

für E25 also folgendermaßen

Cells(25,5)

Liebe Grüße Tanto :p

Hallo Tanto,:-)

ich verwende Excel 2007, und der button weigert sich einfach zu verschwinden, ich habe aus der toolbox eine aktiveX Schaltfläche eingefügt und diese wie oben beschreiben mit dem Code von Dir versehen. Egal ob ich ok oder no in das Feld schreibe es bleibt immer sichtbar...:(

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Cells(25, 5) = "ok" Then
ActiveSheet.Shapes("CommandButton1").Visible = True
Else
ActiveSheet.Shapes("CommandButton1").Visible = False
End If
Application.EnableEvents = True

End Sub
Private Sub CommandButton1_Click()

End Sub

Es spielt wohl auch keine Rolle ob der Teil mit _Click oberhalb oder unterhalb des ganzen steht. Oder mache ich etwas grundsätzliches verkehrt?

Ich teste jeweils mit ausgeschaltetem Entwurfsmodus.

Gruß Viktor Polansky

Hallo Victor :cool:

Vielleich ist das Makro an der falschen Position,es muss hier eingefügt werden für den Automatismus

Alt+F11/Projektexplorer/DeineTabelle

Solltest Du nicht zurecht kommen,dann schau bitte in dein Postfach zum Emailaustausch

Das Ergebnis poste ich dann zu angemessener Zeit

Liebe Grüße Tanto :p

Hallo Community

Konnte leider nicht weiter helfen,da ich kein excel7 besitze und die Datei dadurch nicht lesbar war 8O

Liebe grüße Tanto :p

poly7164

Ich habe mir gerade mal Dein Problem angesehen.
Möglich ist Dein Wunsch.

Frage: Die Tabellen bestehen alle schon?
Frage: Wie sind deren Namen?

Habe heute mal angefangen, bei mir funktioniert es 07.11.2010.

Es gibt drei Bereiche in denen Du die Codes einfügen musst:
VBA Öffnen
Folgenden Code in "Diese Arbeitsmappe" kopieren

' ------------------------------------------------------------------------------
' Dieser Code ist für Paules PC Forum geschrieben und kann frei verwendet werden
' Einbinden dieser Teil gehört in "Diese Arbeitsmappe"
' Dazu VBA öffnen und im Projektexplorer "Diese Arbeitsmappe" öffnen
' Damit der COde funktioniert muss in der iSourcetabelle ein Button mit dem Namen
' cmdOK eingebettet sein.
' -------------------------------------------------------------------------------
Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Init
    If Sh.Name = iSource Then                               ' Prüfen ob der Eintrag in der iSourcetabelle ist
        Zelle = Target.Address                              ' Adresse des Range Objectes z.B. $A$1
        iRow = Target.Row                                   ' Zeile
        iCol = Target.Column                                ' Spalte
        iTar = Target.Text                                  ' Wert in Zelle
        If Zelle = iEntry And Range(iEntry) = "OK" Then     ' Prüfe Überwachte Zelle auf OK
            Worksheets(iSource).cmdOK.Visible = True        ' Wenn OK dann Button anzeigen
            Else
            Worksheets(iSource).cmdOK.Visible = False       ' wenn nicht Button nicht anzeigen
        End If
    End If
End Sub
Public Sub Init()
      iEntry = "$B$3"                                       ' Überwachte Zelle
    iControl = "OK"                                         ' Wert
     iSource = "Tabelle1"                                   ' Tabelle mit den Rohdaten
     iTarget = "Tabelle2"                                   ' Ziel Tabelle
       iCopy = "E1:E23"                                     ' Kopierbereich von  iSource
End Sub

Der nächste Code gehört zum Button und muss in dessen Tabellenblatt
kopiert werden.

' ------------------------------------------------------------------------------
' Dieser Code ist für Paules PC Forum geschrieben und kann frei verwendet werden
' Einbinden dieser Teil gehört in die SourceTabelle
' Dazu VBA öffnen und im Projektexplorer "Tabelle wo Button ist" öffnen
' Damit der COde funktioniert muss in der iSourcetabelle ein Button mit dem Namen
' cmdOK eingebettet sein.
' -------------------------------------------------------------------------------


Public Sub cmdOK_Click()
    OK = Copy_Row
End Sub

Nun noch ein Code der in ein Modul gehört:

' ------------------------------------------------------------------------------
' Dieser Code ist für Paules PC Forum geschrieben und kann frei verwendet werden
' Einbinden dieser Teil gehört in "Modul" muss eventuell noch angelegt werden
' Dazu VBA öffnen und im Projektexplorer "Diese Arbeitsmappe" rechts anklicken
' Im Pop up Einfügen auswählen und dann Modul. Modul auswählen und Code einfügen
' Damit der COde funktioniert muss in der iSourcetabelle ein Button mit dem Namen
' cmdOK eingebettet sein.
' -------------------------------------------------------------------------------
Public iEntry As String
Public iControl As String
Public iSource As String
Public iTarget As String
Public iCopy As String
Public Function Cells2Range(Zeile, Spalte)
    Dim m1 As String
    m1 = Columns(Spalte).Address(False, False)
    m1 = Left(m1, InStr(m1, ":") - 1)
    Cells2Range = Trim(m1) & Trim(Str(Zeile)) + ":" + Trim(m1) & Trim(Str(Zeile + 23))
End Function
Public Function Copy_Row()
    iSpalte = 5                          ' Beginn mit der Überprüfung bei E (6 währe F .....)
    Do While iSpalte < 249
        If Worksheets(iTarget).Cells(1, iSpalte) <> "" Then ' Prüfe die Zieltabelle
            iSpalte = iSpalte + 1         ' Wenn Eintrag dann weiter
            Else
            Exit Do                     ' Schleife verlassen
        End If
    Loop
    CtR = Cells2Range(1, iSpalte)

    Worksheets(iSource).Range(iCopy).Select
    Selection.Copy
    Worksheets(iTarget).Select
    Range(CtR).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
End Function

Wenn Probleme sind melde Dich oder sende eine persönliche Nachricht.

;)Gruß
Sascha

Hallo Sascha,

ich bekomme bei der Zeile :

Worksheets(iSource).cmdOK.Visible = False ' wenn nicht Button nicht anzeigen

immer wieder eine Fehlermeldung, ich habe die Codezeilen in eine neue Version meiner Datei eingefügt. Die Bezeichnungne für die Tabellen habe ich angepasst.

Der Button verschwindet zwar, aber wenn er da ist passiert nichts wenn ich Ihn anklicke.

iEntry habe ich auf "$E$23" gesetzt weil dies ja die Zelle ist die mir die Entscheidung OK oder NOK gibt.

gerne sende ich dir die Datei zu.

Gruß Viktor

Nachtrag:

Die Tabellen bestehen schon:

Data => Rohdaten
Übersicht => Ziel fürs Archiv

Hallo Sascha,


anbei meine Testdatei

Ich weis nun nicht mehr was ich falsch mache.

Gruß Viktor

poly7164

Habe nun nocheinmal einwenig geändert. Anbei Deine Tabelle
prüfe diese bitte auf funktionalität.

Gruß
Sascha

PS.: Würde mich freuen von Dir auch etwas zu hören wenn es OK ist.:D

Hallo Sascha,

super, so habe ich es mir vorgestellt.

Danke vielmals.:-):-):-)

Gruß Viktor

poly7164

gern geschehen.:D

Gruß
Sascha