Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 301 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 298, 299, 300, 301, 302, 303, 304 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: duplikate filtern aber daten in andere zellen!! 
Phelan XLPH

Antworten: 18
Aufrufe: 512

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 18:19   Titel: AW: duplikate filtern aber daten in andere zellen!! Version: Office 2003
Ha, geht doch Laughing
  Thema: Den letzte Arbeitstag ermitteln 
Phelan XLPH

Antworten: 10
Aufrufe: 1520

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 18:15   Titel: AW: Den letzte Arbeitstag ermitteln Version: Office 2003
Hallo,

schau dir die Datei an.
  Thema: Spalte durchsuchen und bestimmte Werte mehrfach kopieren 
Phelan XLPH

Antworten: 10
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 16:33   Titel: AW: Spalte durchsuchen und bestimmte Werte mehrfach kopieren Version: Office 2003
Häääää, in SpalteB stehet doch nix!

Sub ph()
Dim rngC As Range
Dim such As Variant
Dim wert As Variant
Dim spalte As Integer

such = "D:"

For Each rngC In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If rngC.Row = 2 Then wert = rngC.Value
spalte = IIf(rngC = such, 5, 7)
If rngC.Offset(-1) <> rngC Then
If rngC.Offset(-1) = such Then
wert = rngC.Value
End If
End If
rngC.Offset(, spalte) = wert
Next
End Sub
  Thema: duplikate filtern aber daten in andere zellen!! 
Phelan XLPH

Antworten: 18
Aufrufe: 512

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 16:23   Titel: AW: duplikate filtern aber daten in andere zellen!! Version: Office 2003
Ich weiß nicht was du hast, mein Code funktioniert.
  Thema: 2 tabellen vergleichen und in dritter tabelle ausgeben 
Phelan XLPH

Antworten: 15
Aufrufe: 853

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 16:16   Titel: AW: 2 tabellen vergleichen und in dritter tabelle ausgeben Version: Office 2007
Gibt es denn auch Produkte (IDs) die in TabelleA vorkommen aber nicht in TabelleB?
  Thema: Den letzte Arbeitstag ermitteln 
Phelan XLPH

Antworten: 10
Aufrufe: 1520

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 16:07   Titel: AW: Den letzte Arbeitstag ermitteln Version: Office 2003
Die beweglichen Feiertage variieren und die Bundesländer haben teils
verschiedene Feiertage.

Als Parameter benötigst du:
1. das Jahr
2. die Bundesländer

um aus einer Kreuztabelle die feiertags-Daten zu erhalten. Und diese
dürfen dann nicht auf den letzten Freitag eines Monats fallen, falls doch,
prüfe den Vor-Tag auf Feiertag (sowie Sa und So), usw.
  Thema: Makro Performance, Such- und Schreibvorgang in anderer Datei 
Phelan XLPH

Antworten: 2
Aufrufe: 162

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 15:59   Titel: AW: Makro Performance, Such- und Schreibvorgang in anderer D Version: Office 2007
So?

Sub KillFormula()
Dim wkb As Workbook
Dim vfile As Variant
Dim sSuche As String
Dim h As Worksheet
Dim g As Range
Dim icalc As Integer

vfile = Application.GetOpenFilename
If TypeName(vfile) = "Boolean" Then Exit Sub

Application.ScreenUpdating = False
Application.EnableEvents = False
icalc = Application.Calculation
Application.Calculation = xlCalculationManual

On Error GoTo ENDE

Set wkb = Workbooks.Open(vfile)

sSuche = "suchemich" '(zu suchender String)

For Each h In wkb.Worksheets
If IsNull(h.UsedRange.HasFormula) Then
For Each g In h.UsedRange.SpecialCells(xlCellTypeFormulas)
If (InStr(1, g.Formula, sSuche, vbTextCompare)) <> 0 Then
g.Formula = g.Value
End If
Next g
End If
Next h
...
  Thema: Unterschiedliche Tabellen vergleichen und anordnen 
Phelan XLPH

Antworten: 2
Aufrufe: 466

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 15:20   Titel: AW: Unterschiedliche Tabellen vergleichen und anordnen Version: Office 2003
Mit SVERWEIS. Smile
  Thema: Den letzte Arbeitstag ermitteln 
Phelan XLPH

Antworten: 10
Aufrufe: 1520

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 15:17   Titel: AW: Den letzte Arbeitstag ermitteln Version: Office 2003
Nein,

abgesehen davon sind manche Feiertage bundeslandabhängig.
  Thema: Den letzte Arbeitstag ermitteln 
Phelan XLPH

Antworten: 10
Aufrufe: 1520

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 15:03   Titel: AW: Den letzte Arbeitstag ermitteln Version: Office 2003
Hab den Sub Main()
Dim intMonth As Integer
For intMonth = 1 To 12
Debug.Print LastDay(2011, intMonth, 6) ' 6=Freitag
Next
End Sub

Function LastDay(ByVal intYear As Integer, ByVal intMonth As Integer, ByVal intWeekday As Integer) As Date
Dim d As Date
'intWeekday >> 1=Sonntag,...,7= Samstag
d = DateSerial(intYear, intMonth + 1, 0)
LastDay = IIf(weekday(d, intWeekday) = 1, d, d - weekday(d, intWeekday) + 1)
End Function
  Thema: Makro nicht ausführen, wenn Inhalte kopiert werden 
Phelan XLPH

Antworten: 9
Aufrufe: 230

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 14:41   Titel: AW: Makro nicht ausführen, wenn Inhalte kopiert werden Version: Office 2003
Beschreib in Worten von welcher Datei welchem Blatt und welcher Bereich in
welche Datei welches Blatt welche Zelle kopiert werden soll.

Ist nicht ganz ersichtlich.

Das kannst du auch so machen, dass die Quelldatei geschlossen ist,
und beim Aufruf des Makros diese dann öffnen , den Kopiervorgang durchführen
und die Datei wieder schließen. Pfadangabe!!!
  Thema: duplikate filtern aber daten in andere zellen!! 
Phelan XLPH

Antworten: 18
Aufrufe: 512

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 14:33   Titel: AW: duplikate filtern aber daten in andere zellen!! Version: Office 2003
ist das das ergebnis, soll es so aussehen?
  Thema: Spalte durchsuchen und bestimmte Werte mehrfach kopieren 
Phelan XLPH

Antworten: 10
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 14:28   Titel: AW: Spalte durchsuchen und bestimmte Werte mehrfach kopieren Version: Office 2003
Hallo,

teste das mal:

Sub ph()
Dim rngC As Range
Dim such As Variant
Dim wert As Variant

such = "D:"

For Each rngC In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If rngC.Row = 2 Then wert = rngC.Value
If rngC.Offset(-1) <> rngC Then
If rngC.Offset(-1) = such Then
wert = rngC.Value
End If
End If
rngC.Offset(, 5) = wert
Next
End Sub
  Thema: Text Inhalte in Zellen suchen und dann diese Zeilen anzeigen 
Phelan XLPH

Antworten: 8
Aufrufe: 530

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 14:10   Titel: AW: Text Inhalte in Zellen suchen und dann diese Zeilen anze Version: Office 2007
Dem Button einfach das makro zuweisen:

Sub ph_Suche()
Dim c As Range
Dim ar As Range
Dim firstAddress As String
Dim rng As Range
Dim i As Integer
Dim erg As String
Dim such As Variant


such = InputBox("Bitte Suchwerte durch ein Semikolon getrennt eingeben:", "Suche")

If such = "" Then ActiveSheet.Rows.Hidden = False: Exit Sub

such = Split(such, ";")

For i = 0 To UBound(such)
With ActiveSheet.UsedRange
Set c = .Find(such(i), , xlValues, xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If rng Is Nothing Then
Set rng = Intersect(c.EntireRow, .Cells)
Else
Set rng = Union(rng, Intersect(c.EntireRow, .Cells))
...
  Thema: Blinkende Schrift oder Zelle 
Phelan XLPH

Antworten: 4
Aufrufe: 907

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Feb 2011, 13:50   Titel: AW: Blinkende Schrift oder Zelle Version: Office 2k (2000)
Hallo,

wieder mal einen Blinker...
 
Seite 301 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 298, 299, 300, 301, 302, 303, 304 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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