Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 14 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 11, 12, 13, 14, 15, 16, 17 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zellnamen beim Speichern mitgeben 
Phelan XLPH

Antworten: 3
Aufrufe: 45

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 10:16   Titel: AW: Zellnamen beim Speichern mitgeben Version: Office 2010
Hallo,

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim KW As Variant
Dim Jahr As Variant

KW = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value ' anpassen
Jahr = ThisWorkbook.Worksheets("Tabelle1").Range("A2").Value ' anpassen

Application.EnableEvents = False

ThisWorkbook.Save

Application.DisplayAlerts = False

ThisWorkbook.SaveCopyAs "w:\" & ThisWorkbook.Name & " " & KW & "-" & Jahr & ".xls"

Application.DisplayAlerts = True

Application.EnableEvents = True

End Sub
  Thema: Alternative zu endlos langer if/elseif-Anweisung? 
Phelan XLPH

Antworten: 6
Aufrufe: 106

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 10:00   Titel: AW: Alternative zu endlos langer if/elseif-Anweisung? Version: Office 2010
Hallo,

könntest du beschreiben was der Code machen soll?
  Thema: nach Zeilenauswahl in Listbox Bild in Userform anzeigen 
Phelan XLPH

Antworten: 2
Aufrufe: 83

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 00:39   Titel: AW: nach Zeilenauswahl in Listbox Bild in Userform anzeigen Version: Office 2013
Hallo,

versuch es hiermit:

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" ( _
ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal _
hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal _
hMenu As Long, ByVal nPosition As Long, ByVal wFlags _
As Long) As Long
Private Const MF_BYCOMMAND = &H0
Private Const SC_MOVE = &HF010
Dim vnL As Variant

Private m_wkbArtikel As Workbook

Private Sub UserForm_Activate()
Dim Pfad As String
Dim Datei As String
Dim sngFactor As Single
Dim hwndForm As Long
Dim hwndMenu As Long
Dim lngZ A ...
  Thema: Voneinander abhängige Comboboxen 
Phelan XLPH

Antworten: 4
Aufrufe: 84

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 23:48   Titel: AW: Voneinander abhängige Comboboxen Version: Office 2010
Oder hier:
http://www.office-loesung.de/ftopic632330_0_0_asc.php#2660028
  Thema: Countifs mit vielen Bedingungen 
Phelan XLPH

Antworten: 25
Aufrufe: 410

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 22:43   Titel: AW: Countifs mit vielen Bedingungen Version: Office 2010
Hallo Superfast,

wenn du damit besser zurecht kommst, warum nicht.
  Thema: Erweiteter Zufallsgenerator 
Phelan XLPH

Antworten: 6
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 22:41   Titel: AW: Erweiteter Zufallsgenerator Version: Office 2010
Hallo,

Kladden.

Hier der Code mit Kommentaren:

Sub KontrollTermineSetzen()
Dim Zimmer As Variant
Dim i As Long
Dim j As Long
Dim z As Long
Dim tmp As Variant
Dim Zelle As Range
Dim Fertig As Boolean


With Tabelle2.Range("A1").CurrentRegion
' Alle Zimmer-Bezeichnungen in ein Datenfeld lesen
Zimmer = .Resize(.Rows.Count - 1, 1).Offset(1).Value
End With

' Positionen des Datenfeldes, die zufällig bestimmt werden, tauschen
For i = LBound(Zimmer) To UBound(Zimmer)
Randomize Timer
z = Int((UBound(Zimmer) - LBound(Zimmer) + 1) * Rnd + LBound(Zimmer))
tmp = Zimmer(i, 1)
Zimmer(i, 1) = Zimmer(z, 1)
Zimmer(z, 1) = tmp
Next

z = 0

Application.ScreenUpdating = False

With Tabelle1

...
  Thema: Spezialfilter in Kombination mit einem Makro Datei bearbeite 
Phelan XLPH

Antworten: 13
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 17:59   Titel: AW: Spezialfilter in Kombination mit einem Makro Datei bearb Version: Office 2013
Im Codefenster des Blattes 'Daten Filter'

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:D6")) Is Nothing And Target.Count = 1 Then
If Not blnDropDownGesetzt Then blnDropDownGesetzt = True: DropDownsSetzen
Filtern
End If
End Sub


Den Bereich 'Range("A2:D6")' erweitern z.B. Range("A2:E6")
  Thema: Erweiteter Zufallsgenerator 
Phelan XLPH

Antworten: 6
Aufrufe: 200

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 17:28   Titel: AW: Erweiteter Zufallsgenerator Version: Office 2010
Hallo,

sowas vielleicht?
  Thema: Spezialfilter in Kombination mit einem Makro Datei bearbeite 
Phelan XLPH

Antworten: 13
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 13:05   Titel: AW: Spezialfilter in Kombination mit einem Makro Datei bearb Version: Office 2013
Hallo,

so viel ich weiß, ist der Urheber Thomas Ramel.


Hier eine Variante aus meinem Archiv.
  Thema: Spezialfilter in Kombination mit einem Makro Datei bearbeite 
Phelan XLPH

Antworten: 13
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jan 2014, 09:39   Titel: AW: Spezialfilter in Kombination mit einem Makro Datei bearb Version: Office 2013
Hallo,

ich würde ja gerne helfen, leider habe ich keine Vorstellung wie diese Datei aussieht,
noch wo ich diese finde!
  Thema: Gleiche Wörter finden und den zwischen Bereich kopieren 
Phelan XLPH

Antworten: 3
Aufrufe: 123

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2014, 20:20   Titel: AW: Gleiche Wörter finden und den zwischen Bereich kopieren Version: Office 2007
Hallo,

so vielleicht?

Sub AreasTranposeValue_xlph()
Dim SuchWert As Variant
Dim i As Long

SuchWert = "aaaa"

With Tabelle1.Columns(1)
If Not .Find(SuchWert, , xlValues, xlWhole) Is Nothing Then
With .ColumnDifferences(.Find(SuchWert, , xlValues, xlWhole))
For i = 1 To .Areas.Count - 1
Tabelle2.Cells(i, 1).Value = .Areas(i).Cells(1).Offset(-1).Value
Tabelle2.Cells(i, 2).Resize(, .Areas(i).Rows.Count).Value = _
WorksheetFunction.Transpose(.Areas(i).Value)
Next
End With
Else
MsgBox "Suchwert '" & SuchWert & "' wurde nicht gefunden!"
End If
End With

End Sub
  Thema: Summenprodukt per VBA mit vielen Spalten 
Phelan XLPH

Antworten: 9
Aufrufe: 138

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2014, 19:38   Titel: AW: Summenprodukt per VBA mit vielen Spalten Version: Office 2010
Hallo,

ein mögliche Variante.
  Thema: Summenprodukt per VBA mit vielen Spalten 
Phelan XLPH

Antworten: 9
Aufrufe: 138

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2014, 17:59   Titel: AW: Summenprodukt per VBA mit vielen Spalten Version: Office 2010
Wie heißt das Blatt, in dem dir Formeln eingetragen sind?
  Thema: In Text-Datei exportieren und mehr... 
Phelan XLPH

Antworten: 11
Aufrufe: 123

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2014, 14:20   Titel: AW: In Text-Datei exportieren und mehr... Version: Office 2013
Hallo,

dann so:

Sub xlph()
Dim rngC As Range
Dim DatenSatz As String
Dim DatenSaetze As String
Dim Pfad As String
Dim Idx As Long

Pfad = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt"

With Range("A1").CurrentRegion.Offset(1)
For Each rngC In .Columns(1).Cells
With rngC
If Not IsEmpty(.Value) And .Offset(, 8).Value <> "X" Then
For Idx = 1 To 6
DatenSatz = DatenSatz & vbTab & .Offset(, Idx).Value
Next
DatenSaetze = DatenSaetze & vbCrLf & Mid$(DatenSatz, 2)
DatenSatz = ""
.Offset(, 8).Value = "X"
End If
End With
Next
End With

If Len(DatenSaetz ...
  Thema: VBA Makro Vergleich und löschen 
Phelan XLPH

Antworten: 3
Aufrufe: 55

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2014, 14:09   Titel: AW: VBA Makro Vergleich und löschen Version: Office 2010
Sorry, Code-Tags vergessen!

Option Explicit

Sub Abgleich_xlph()

Dim wksA As Worksheet
Dim wksB As Worksheet
Dim wksC As Worksheet

Dim dicA As Object
Dim dicB As Object

Dim Item As Variant

Dim Zeile As Long
Dim LetzteZeile As Long

Const StartZeile = 6

Set wksA = Worksheets("A")
Set wksB = Worksheets("B")
Set wksC = Worksheets("C")

Set dicA = CreateObject("scripting.dictionary")
Set dicB = CreateObject("scripting.dictionary")


' Daten A lesen

With wksA
LetzteZeile = WorksheetFunction.Max(StartZeile, .Cells(.Rows.Count, 6).End(xlUp).Row)
With Range(.Cells(StartZeile, 6), .Cells(LetzteZeile, 6))
Zeile = StartZeile - 1
For Each Item In .Value
...
 
Seite 14 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 11, 12, 13, 14, 15, 16, 17 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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