Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 643 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 640, 641, 642, 643, 644, 645, 646 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Sound makro bring error 
Phelan XLPH

Antworten: 4
Aufrufe: 632

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 22:49   Titel: AW: Sound makro bring error Version: Office 2003
Hallo kojote, hier mal ein Beispiel:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub WavDateiAbspielen() 'muss "wav"-Datei sein
Call sndPlaySound("C:/WINDOWS/Media/tada.wav", 1)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If IsNumeric(Target.Value) And _
Target.Value >= 100 Then
WavDateiAbspielen
End If
End If
End Sub

Hier mal ein Beispiel bei Wert in [A1] größer 100 -> TADAAAA!!!!-Sound
  Thema: Inputbox für Kommentare 
Phelan XLPH

Antworten: 7
Aufrufe: 742

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 22:31   Titel: AW: Inputbox für Kommentare Version: Office 2003
Hallo,

habs nochmal verfeinert schau obs dir zusagt:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim zell As Range
Dim strKommentar As String
Dim strUser As String
If Not Intersect(Target, Range("A1:E5")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) Then
If Target > 0 Then
If Not Target.Comment Is Nothing Then strKommentar = Mid(Target.Comment.Text, InStr(Target.Comment.Text, vbCrLf) + 1)
strKommentar = InputBox("Bitte Kommentar eingeben:", "Eingabe Kommentar", strKommentar)
If strKommentar <> "" Then
If Not Target.Comment Is Nothing Then Target.Comment.Delete
strUser = Environ("Username") & ":"
Target.AddComment strUser & vbCrLf & strKommentar
...
  Thema: Zeilenweise auf doppelte Werte überprüfen 
Phelan XLPH

Antworten: 12
Aufrufe: 2272

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 22:13   Titel: AW: Zeilenweise auf doppelte Werte überprüfen Version: Office XP (2002)
Hallo,

Sub DuplikateListen()
'Doppelte Einträge prüfen
Dim a As Long, i As Long
Dim ar As Variant, arrOut() As Variant
Dim objDic As Object
Dim s As String
' Dictionary-Objekt erstellen
Set objDic = CreateObject("scripting.dictionary")
ar = Tabelle1.Range("A1:E10") 'Range("E18:X380")
For a = 1 To UBound(ar)
For i = 1 To UBound(ar, 2)
If ar(a, i) <> "" Then
' Key ist der Wert aus Spalte E bis X, Value die Anzahl
s = a & "#" & ar(a, i)
objDic(s) = objDic(s) + 1
End If
Next
Next a

' Das gleiche Array für die Ausgabe benutzen
i = 0
Erase ar
ar = objDic.Keys
ReDim arrOut(1 To UBound(ar) + 1, 1 To 3)
For a = 0 To UBound(ar)
If objDic(ar(a)) > 1 Then
i = i + 1
arrOut(i, 1) = Split ...
  Thema: Combobox Auswahl an Variable übergeben . 
Phelan XLPH

Antworten: 11
Aufrufe: 4124

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 21:20   Titel: AW: Combobox Auswahl an Variable übergeben . Version: Office 2007
Sorry das muss so heissen:
Sub Makro11(zahl As Double)
MsgBox zahl
End Sub

(in Modul2 damit)
  Thema: Zeilenweise auf doppelte Werte überprüfen 
Phelan XLPH

Antworten: 12
Aufrufe: 2272

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 21:13   Titel: AW: Zeilenweise auf doppelte Werte überprüfen Version: Office XP (2002)
Datum soll in der Zeile aber nich mit überprüft werden oder?!?
  Thema: Zelleninhalt kopieren in eine andere tabelle 
Phelan XLPH

Antworten: 4
Aufrufe: 405

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 20:57   Titel: AW: Zelleninhalt kopieren in eine andere tabelle Version: Office 2k (2000)
In verbundenen Zellen kann immer nur die erste Zelle Werte enthalten.

Bsp. [D4:F5] verbunden >> Werte können nur in D4 eingetragen werden.
  Thema: Combobox Auswahl an Variable übergeben . 
Phelan XLPH

Antworten: 11
Aufrufe: 4124

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 20:52   Titel: AW: Combobox Auswahl an Variable übergeben . Version: Office 2007
Beispiel:

in die Userform:
Private Sub CommandButton1_Click()
Unload Me
Makro11 Val(ComboBox1.Value)
End Sub
in ein StandardModul:
Sub Makro11(zahl As Double)
MsgBox zahl
End Sub
  Thema: Paste gewisser Zeilen in neues sheet, LZFehler 1004 
Phelan XLPH

Antworten: 12
Aufrufe: 795

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 20:40   Titel: AW: Paste gewisser Zeilen in neues sheet, LZFehler 1004 Version: Office 2003
hier die benutzten Daten:
QuelleKleinserie  ABCDE1abcde21615-4-7-3313-819-17-74-1-369195-2-19-15-18126-7-19121347173-1418-58-177714-17911220-1420106-131851811-2012717-16 [url=http://www.office-loesung.de/ftopic91422_0_0_asc.php]Excel Jeanie Html
  Thema: Paste gewisser Zeilen in neues sheet, LZFehler 1004 
Phelan XLPH

Antworten: 12
Aufrufe: 795

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 20:37   Titel: AW: Paste gewisser Zeilen in neues sheet, LZFehler 1004 Version: Office 2003
@Nepumuk

habs nochmal probiert, selbes Ergebnis. Vielleicht liegts daran dass ich 2007
hab. Aber ich kann mir nicht erklären warum es in meinem Code-Schnipsel
läuft.

Würde gerne deinen als Vorlage nehmen, aber tut nicht.

so sieht meine Test-Tabelle aus.

QuelleKleinserie  ABCDE1abcde21615-4-7-3313-819-17-74-1-369195-2-19-15-18126-7-19121347173-1418-58-177714-17911220-1420106-131851811-2012717-16 [url=http://www.office-loesung.de/ftopic91422_0_0_asc.php]Excel Jeanie Html
  Thema: Combobox Auswahl an Variable übergeben . 
Phelan XLPH

Antworten: 11
Aufrufe: 4124

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 20:12   Titel: AW: Combobox Auswahl an Variable übergeben . Version: Office 2007
hallo,

dann nimm doch ne ListBox, in ihr kannst du einzelne Zeilen auswählen.

Um die Daten wieder auszulensen, musst du genauer werden und sagen was
dein Ziel ist.
  Thema: Mehrspaltige Listbox - Listbox.clear funktioniert nicht 
Phelan XLPH

Antworten: 5
Aufrufe: 2817

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 20:01   Titel: AW: Mehrspaltige Listbox - Listbox.clear funktioniert nicht Version: Office 2003
Hallo,

da musst du zu einem Hellseher gehen denn der sieht deinen Code ich nicht! Laughing
  Thema: Paste gewisser Zeilen in neues sheet, LZFehler 1004 
Phelan XLPH

Antworten: 12
Aufrufe: 795

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 19:07   Titel: AW: Paste gewisser Zeilen in neues sheet, LZFehler 1004 Version: Office 2003
@Nepumuk

ich hätte das jetzt so gemacht:

Sub AusschussExport2()
With Sheets("QuelleKleinserie")
.Range("A1").CurrentRegion.AutoFilter Field:=5, Criteria1:="<0"
.AutoFilter.Range.Copy _
Destination:=Sheets("Ausschussanalyse").Range("A1")
.ShowAllData
End With
End Sub

Vorteil bei diesem Code: Autofilter muss nicht gesetzt sein.
Bei deinem Code läuft er in den LFZ 1004:
Die Show-AllData-Methode des Worksheet-Objekts konnte nicht ausgeführt
werden.

Ist dieser Code Stil-Bruch? hab ich bisher immer so gehandhabt.
  Thema: Paste gewisser Zeilen in neues sheet, LZFehler 1004 
Phelan XLPH

Antworten: 12
Aufrufe: 795

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 18:45   Titel: AW: Paste gewisser Zeilen in neues sheet, LZFehler 1004 Version: Office 2003
@Nepumuk

ist das hier nicht doppeltgemoppelt?:
.AutoFilter.Range.AutoFilter Field:=5, Criteria1:="<0"
  Thema: Problem im Import *txt. Spaltenbreite NICHT anpassen! 
Phelan XLPH

Antworten: 3
Aufrufe: 1276

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 18:26   Titel: AW: Problem im Import *txt. Spaltenbreite NICHT anpassen! Version: Office 2004 (Mac)
Hallo, muss das über Query gehen, benötigst du die Verknüpfung?
Ansonsten hab ich folgende Bsp:

Sub CSVImport()
Dim wkb As Workbook
Dim strPfad As String
strPfad = "D:\test\a.csv"
Workbooks.OpenText Filename:=strPfad, Local:=True
Set wkb = ActiveWorkbook
wkb.Sheets(1).Cells.Copy ThisWorkbook.Sheets(3).Cells(1, 1)
wkb.Close
End Sub

Sub CSVImport2()
Dim wkb As Workbook
Dim wks As Worksheet
Dim strPfad As String
Set wks = ThisWorkbook.Sheets("Tabelle1") 'Ziel Anpassen
strPfad = "D:\test\a.csv" 'Quelle Anpassen
Set wkb = Workbooks.Open(Filename:=strPfad, Local:=True)
wkb.Sheets(1).Cells.Copy wks.Cells(1, 1)
wkb.Close
End Sub

Sub CSVImport3()
Dim wkb As Workbook
Dim strPfad As String

Application.ScreenUpdating = False
strPfad = "D:\test\a.csv" 'ANPASSEN
Set wkb = Workbooks.Open(Filename: ...
  Thema: Mittels Spinbutton Tabellenblätter wechseln 
Phelan XLPH

Antworten: 11
Aufrufe: 816

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Mai 2009, 18:14   Titel: AW: Mittels Spinbutton Tabellenblätter wechseln Version: Office 97
Das macht es doch! Confused
 
Seite 643 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 640, 641, 642, 643, 644, 645, 646 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript