Thema Datum  Von Nutzer Rating
Antwort
05.06.2007 12:08:04 Kiro
NotSolved
Blau Aw:Programmierung einer befehlsschaltfläche
 06.06.2007 18:42:56 Stef113
NotSolved
07.06.2007 13:04:30 kiro
NotSolved

Ansicht des Beitrags:
Von:
Stef113		 Datum:
06.06.2007 18:42:56		 Views:
1742		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Programmierung einer befehlsschaltfläche
Hallo Kiro,

Falls du das zum ersten Mal machst, musst du zu allererst einmal im Bearbeitungsmodus sein. Anschließend musst du auf die neu erstellte Befehlsschaltfläche Doppelklicken. Dann müsste sich der Visual Basic Editor öffnen und der Cursor müsste in einer Funktion mit dem Namen "CommandButton1_Click()", oder ähnlich sein. In der VBA-Hilfe habe ich ein gutes Beispiel gefunden (ich habe es für diesen Fall etwas umgeschrieben):
------------------------------------CODE-----------------------------------------
Zeile = 1
With Worksheets(1).Columns(19)
Set c = .Find("JA", LookIn:=xlValues)
If Not c Is Nothing And c.Address <> GefZelle Then
GefZelle = c.Address
Do
Rows(c.Row).Copy
Worksheets(2).Rows(Zeile).PasteSpecial
Zeile = Zeile + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> GefZelle
End If
End With
------------------------------------CODE-----------------------------------------

Dieser Code kopiert aber nur die Zeilen, indenen sich in Spalte 19 der Wert "JA" befindet und fügt sie anschließend in der zweiten Tabelle ein. Um die 6 anderen Zellen zu Kopieren, kannst du einfach bei jeder Zelle z.B "Range("D6").Copy" und um einzufügen z.B. "Range("F4").PasteSpecial" schreiben. (Kopiert Zelle D6 und fügt sie anschließend in F4 ein.)

Ich hoffe ich konnte helfen
Stefan

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.06.2007 12:08:04 Kiro
NotSolved
Blau Aw:Programmierung einer befehlsschaltfläche
 06.06.2007 18:42:56 Stef113
NotSolved
07.06.2007 13:04:30 kiro
NotSolved