Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 176 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 173, 174, 175, 176, 177, 178, 179 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: per Makro pro Datei Aufgaben ausführen 
Phelan XLPH

Antworten: 8
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 19:41   Titel: AW: per Makro pro Datei Aufgaben ausführen Version: Office 2010
Hallo,

versuchs hiermit:

Sub x()
Dim i As Long
Dim wb As Workbook
Dim sPfad As String
Dim sDatei As String

With Tabelle1
sPfad = .Cells(3, 7).Text & "\"

For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2).Interior.Color <> .Cells(i, 4).Interior.Color Then

If .Cells(i, 1) <> "" Then
sDatei = .Cells(i, 1)
If Not wb Is Nothing Then
wb.Close 0
Set wb = Nothing
End If
End If

If Dir(sPfad & sDatei) = "" Then
MsgBox "Datei-Pfad: [" & sPfad & sDatei & "] existiert nicht!", , "Info"
Else
...
  Thema: per Makro pro Datei Aufgaben ausführen 
Phelan XLPH

Antworten: 8
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 15:33   Titel: AW: per Makro pro Datei Aufgaben ausführen Version: Office 2010
Gibt es pro datei nur 1 Blatt?

meld moch heut abend wieder... Smile
  Thema: Suchfunktion funktioniert nicht (nicht Mehr) 
Phelan XLPH

Antworten: 22
Aufrufe: 659

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 15:17   Titel: AW: Suchfunktion funktioniert nicht (nicht Mehr) Version: Office 2007
Hallo Malygos,

Public Sub Suchen(strFiliale, strMonat, strTabelle, strRange As String) 'Funktion Suchen, übernimmt Parameter (Fakturajournal)

Dim intDelta As Integer 'Def. Var für Datumsdifferenz
Dim arDaten As Variant 'Def. Array für alle Daten
Dim lI As Long 'Def. Variabel für Zellen
Dim blnFilialeGefunden As Boolean 'Flag für Filiale
Dim blnMonatGefunden As Boolean 'Flag für Monat
Dim blnTotalGefunden As Boolean 'Flag für Total

If blnOverwirte = False Then 'Überprüfe Flag
If Not ThisWorkbook.Sheets(strTabelle).Range(strRange).Value = "" T ...
  Thema: VBA Suchfunktion mit mehreren Kriterien 
Phelan XLPH

Antworten: 14
Aufrufe: 2308

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 15:04   Titel: AW: VBA Suchfunktion mit mehreren Kriterien Version: Office 2007
@derHorst,

mach mal ein Beispiel, damit wir aus dem Irrgarten rauskommen.
  Thema: per Makro pro Datei Aufgaben ausführen 
Phelan XLPH

Antworten: 8
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 14:57   Titel: AW: per Makro pro Datei Aufgaben ausführen Version: Office 2010
ok, was ist da jetzt 'nicht aktiv'?
  Thema: Kalender 
Phelan XLPH

Antworten: 6
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 14:40   Titel: AW: Kalender Version: Office 2010
Verwende SVERWEIS().
  Thema: per Makro pro Datei Aufgaben ausführen 
Phelan XLPH

Antworten: 8
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 14:26   Titel: AW: per Makro pro Datei Aufgaben ausführen Version: Office 2010
Das Makro soll nun die entsprechende Datei öffnen, die Aufgaben ausführen, welche aktiv sind, die Datei speichern, schliessen und nächste Datei öffnen....

und wie soll das aussehen?
  Thema: Optimierung eines vorhanden Skriptes 
Phelan XLPH

Antworten: 36
Aufrufe: 768

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 13:32   Titel: AW: Optimierung eines vorhanden Skriptes Version: Office 2010
Also wird das "?" per Formel ermittelt.

Und das "?" steht jeweils in SpalteA ab Zeile 2? Ist das Richtig?

Ist es notwendig, die Daten in "Temp" der jeweiligen Datei zwischenzuspeichern?
  Thema: Daten filtern und in Tabelle 2 kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 373

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 13:15   Titel: AW: Daten filtern und in Tabelle 2 kopieren Version: Office 2010
Ersetze die Change-Zeile durch folgende:
Private Sub CommandButton1_Click()

Die Schaltfläche muss dann natürlich auch CommandButton1 heißen.
Ändere es nach Bedarf.
  Thema: Optimierung eines vorhanden Skriptes 
Phelan XLPH

Antworten: 36
Aufrufe: 768

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 13:11   Titel: AW: Optimierung eines vorhanden Skriptes Version: Office 2010
Hallo,

du markierst in 10 Dateien mit jeweils ca. 20 Sheets die zu übertragenden
Datensätze mit einem "?".

Warum lässt du das nicht auch vom makro übernehmen?
  Thema: Suchfunktion funktioniert nicht (nicht Mehr) 
Phelan XLPH

Antworten: 22
Aufrufe: 659

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 12:53   Titel: AW: Suchfunktion funktioniert nicht (nicht Mehr) Version: Office 2007
versuchs hiermit:

Public Sub Suchen(strFiliale, strMonat, strTabelle, strRange As String) 'Funktion Suchen, übernimmt Parameter (Fakturajournal)

Dim intDelta As Integer 'Def. Var für Datumsdifferenz
Dim arDaten As Variant 'Def. Array für alle Daten
Dim lI As Long 'Def. Variabel für Zellen
Dim blnFilialeGefunden As Boolean 'Flag für Filiale
Dim blnMonatGefunden As Boolean 'Flag für Monat
Dim blnTotalGefunden As Boolean 'Flag für Total

If blnOverwirte = False Then 'Überprüfe Flag
If Not ThisWorkbook.Sheets(strTabelle).Range(strRange).Value = "" ...
  Thema: Einzelne Daten aus MS Project in Excel nach Abgleich 
Phelan XLPH

Antworten: 17
Aufrufe: 707

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 10:54   Titel: AW: Einzelne Daten aus MS Project in Excel nach Abgleich Version: Office 2003
Wenn es lange Listen sind dann versuchs hiermit:

Public Sub Main()
Dim objMSProject As Object
Dim intCount As Integer
Dim lngLastRow As Long
Dim dictTask As Object
Dim varaName As Variant
Dim varaStart As Variant
Dim rngStart As Range

On Error GoTo Fin

Set dictTask = CreateObject("scripting.dictionary")

Set objMSProject = GetObject("C:\Temp\Test.mpp")
For intCount = 1 To objMSProject.Tasks.Count
With objMSProject.Tasks(intCount)
dictTask(.Name) = .Start
End With
Next intCount
Set objMSProject = Nothing

With Tabelle1
lngLastRow = IIf(IsEmpty(.Cells(.Rows.Count, 2)), _
.Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count)
Set rngStart = .Cells(2, 13).Resize(lngLastRow - 1)
End With

varaName = rngStart.Of ...
  Thema: Erstellen einer Excel Vorlage zum Listenabgleich mit Macro 
Phelan XLPH

Antworten: 20
Aufrufe: 1184

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Feb 2012, 00:10   Titel: AW: Erstellen einer Excel Vorlage zum Listenabgleich mit Mac Version: Office 2010
ohne Beispiel wird das nix.
  Thema: Daten filtern und in Tabelle 2 kopieren 
Phelan XLPH

Antworten: 6
Aufrufe: 373

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Feb 2012, 12:56   Titel: AW: Daten filtern und in Tabelle 2 kopieren Version: Office 2010
Hallo,

da du XL2010 hast, geht das recht einfach.
  Thema: numpad wird bei eingabe nicht akzeptiert 
Phelan XLPH

Antworten: 13
Aufrufe: 425

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Feb 2012, 12:05   Titel: AW: numpad wird bei eingabe nicht akzeptiert Version: Office 2010
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'In Einer Textbox nur Ziffern eingaben ohne Decimalzeichen
If InStr("1234567890", Chr$(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then MsgBox "...mach was!"
End Sub
 
Seite 176 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 173, 174, 175, 176, 177, 178, 179 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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