Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 13:49:15 Thomas
Solved
16.02.2016 19:00:14 Gast12339
Solved
17.02.2016 08:57:24 Gast99644
Solved
Blau Sub Schaltfläche61_Klicken()
 17.02.2016 09:51:17 Gast50070
Solved
17.02.2016 10:13:35 Gast10760
Solved
17.02.2016 10:38:49 Thomas
Solved
17.02.2016 11:40:30 Gast17344
Solved
17.02.2016 12:07:09 Thomas
Solved
17.02.2016 18:26:04 Gast17344
Solved
18.02.2016 09:33:41 Thomas
Solved

Ansicht des Beitrags:
Von:
Gast50070		 Datum:
17.02.2016 09:51:17		 Views:
1688		 Rating:
     
Antwort:
 Nein
Thema:
Sub Schaltfläche61_Klicken()

Moin Thomas,
sry, ich will dich sicher nicht niedermachen, aber mal die "Anleitung"

Nehmen wir einmal an, ich bin kein Anfänger. Trotzdem steht bei mir bei jedem Code
erst einmal ein Menge Kommentarzeilen. Was will ich und was soll der Code dazu tun.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
Sub Schaltfläche61_Klicken()
'per Button abgerufen
'was soll untersucht werden und dann passieren
'ein Wert in Spalte A - Wenn... / Dann...
 
'Zeile wo
Dim Zeile As Long
 
'woher Menge 1 nehmen, der Button kennt sie nicht
 
'Vereinbarung es ist immer "diese" Zelle mit "Verschieben" in Spalte A
 
'Zelle finden
Dim Target As Range
 
Set Target = Range("A1:A1000").Find(What:="Verschieben", LookIn:=xlFormulas)
 
'Treffer ??
If Target Is Nothing Then Exit Sub
 
'jetzt die Aktion
 
'zeile ermitteln
Zeile = Target.Row
'Zeilenbereich definieren
'kopieren
Range(Cells(Zeile, 2), Cells(Zeile, 50)).Copy _
Destination:=Sheets("Laufende Bewerbungen").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
'löschen
Range(Cells(Zeile, 2), Cells(Zeile, 50)).ClearContents
 
End Sub

Ob dieser Codevorschlag im Gesamtzusammenhang auch sinnvoll, kann ich nicht beurteilen.
Ich kenne den Zweck und Aufbau deiner Arbeitsmappe nicht.

Gruß

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
16.02.2016 13:49:15 Thomas
Solved
16.02.2016 19:00:14 Gast12339
Solved
17.02.2016 08:57:24 Gast99644
Solved
Blau Sub Schaltfläche61_Klicken()
 17.02.2016 09:51:17 Gast50070
Solved
17.02.2016 10:13:35 Gast10760
Solved
17.02.2016 10:38:49 Thomas
Solved
17.02.2016 11:40:30 Gast17344
Solved
17.02.2016 12:07:09 Thomas
Solved
17.02.2016 18:26:04 Gast17344
Solved
18.02.2016 09:33:41 Thomas
Solved