Thema Datum  Von Nutzer Rating
Antwort
Rot Frage zu meinem Code - Formatierung
 28.06.2016 12:59:09 Lucas
NotSolved
28.06.2016 13:16:05 Crazy Tom
NotSolved
28.06.2016 13:57:53 Gast58649
NotSolved

Ansicht des Beitrags:
Von:
Lucas		 Datum:
28.06.2016 12:59:09		 Views:
1234		 Rating:
     
Antwort:
  Ja
Thema:
Frage zu meinem Code - Formatierung

Hallo Liebe VBA Freunde,

ich würde gerne einen von mir geschriebenen Code schmälern und performanter machen. Leider bin ich blutiger Anfänger vielleicht kann mir jemand von euch helfe.

1. Seht ihr irgendwo Potenzial um den Code schneller zu machen 

2. Ich würde gerne danach den kompletten Cashe und die Zwischenablage leeren. Aber : Application.CutCopyMode = False das bekomme ich irgendwie nicht zum laufen. vielleicht hat auch hier jemand eine Idee

?
1
Application.ScreenUpdating = False    <span style="font-family: Arial, Verdana, sans-serif;">                       </span>
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Suchergebnis As Range                                   
Dim SuchWert As String                                             '
SuchWert = Range("F6")                                           
With Worksheets("OLDatenbank").Range("A1:A300")                  
Set Suchergebnis = .Find(SuchWert)                                
If Not Suchergebnis Is Nothing Then                             
 
Worksheets("OLDatenbank").Cells(Suchergebnis.Row, 1).Copy          
Sheets("Ausgabe").Cells(7, 2).PasteSpecial                         
Worksheets("OLDatenbank").Cells(Suchergebnis.Row, 2).Copy         
Sheets("Ausgabe").Cells(6, 2).PasteSpecial                  
 
Else                                                              
MsgBox "Diese Datenbank verzeichnet nicht die von Ihnen angefragte Person."
 
End If                                                           
 
End With                                               
 
End Sub

Vielen Dank liebe Freunde und vlG Lucas

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
Rot Frage zu meinem Code - Formatierung
 28.06.2016 12:59:09 Lucas
NotSolved
28.06.2016 13:16:05 Crazy Tom
NotSolved
28.06.2016 13:57:53 Gast58649
NotSolved