Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 84 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 81, 82, 83, 84, 85, 86, 87 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: suche Makro f.Zeilen einfügen, kopieren, Werte transponieren 
Phelan XLPH

Antworten: 11
Aufrufe: 516

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 09:37   Titel: AW: suche Makro f.Zeilen einfügen, kopieren, Werte transponi Version: Office 2010
...falls Überschrift vorhanden:

Sub x()
Dim i As Long
Application.ScreenUpdating = False
With Tabelle1
With .Range("A1").CurrentRegion.Columns("A:T")
With .Resize(.Rows.Count - 1).Offset(1)
.Copy .Parent.Cells(.Rows.Count + 2, 1).Resize(.Rows.Count * 11)
End With
End With
With .Range("A1").CurrentRegion.Columns("A:T")
.Sort .Cells(1), xlAscending, Header:=xlYes
For i = 2 To .Rows.Count Step 12
.Cells(i + 1, 9).Resize(11) = _
WorksheetFunction.Transpose(.Cells(i, 10).Resize(, 11))
Next
Intersect(.Cells, .Columns("J:T")).ClearContents
End With
End With
End Sub
  Thema: suche Makro f.Zeilen einfügen, kopieren, Werte transponieren 
Phelan XLPH

Antworten: 11
Aufrufe: 516

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 09:31   Titel: AW: suche Makro f.Zeilen einfügen, kopieren, Werte transponi Version: Office 2010
Hallo,

...eine zügige Variante:

Sub x()
Dim i As Long
Application.ScreenUpdating = False
With Tabelle1
With .Range("A1").CurrentRegion.Columns("A:T")
.Copy .Parent.Cells(.Rows.Count + 1, 1).Resize(.Rows.Count * 11)
End With
With .Range("A1").CurrentRegion.Columns("A:T")
.Sort .Cells(1), xlAscending, Header:=xlNo
For i = 1 To .Rows.Count Step 12
.Cells(i + 1, 9).Resize(11) = _
WorksheetFunction.Transpose(.Cells(i, 10).Resize(, 11))
Next
Intersect(.Cells, .Columns("J:T")).ClearContents
End With
End With
End Sub
  Thema: Excel VBA Zellen ausfüllen bis max. Wert erreicht 
Phelan XLPH

Antworten: 10
Aufrufe: 555

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 01:07   Titel: AW: Excel VBA Zellen ausfüllen bis max. Wert erreicht Version: Office 2003
Tabelle3.Cells(WorksheetFunction.RoundUp(k / 3, 0), (((k + 2) Mod 3) + 1)) = _
"'" & Format(zahl1, "00") & "/" & Format(n, "00")
  Thema: zufälliges Bild aus Ordner in Zelle einfügen 
Phelan XLPH

Antworten: 6
Aufrufe: 169

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2013, 00:59   Titel: AW: zufälliges Bild aus Ordner in Zelle einfügen Version: Office 2007
Public Sub Leistungskarten()
Dim strPath As String
Dim strFile As String
Dim strPictureFiles As String
Dim objCell As Range
Dim objPicture As Picture
Dim vntPictureFiles As Variant
Dim intCount As Integer

strPath = "C:\Users\Pictures\" 'Anpassen *****

strFile = Dir(strPath & "*.*")

Do While strFile <> ""
Select Case LCase(Right(strFile, 3))
Case "jpg", "bmp", "gif"
strPictureFiles = strPictureFiles & vbLf & strFile
End Select
strFile = Dir()
Loop

If strPictureFiles = "" Then
MsgBox "keine Bild-dateien gefunden!"
Exit Sub
End If

vntPictureFiles = Mix(Split(Mid(strPictureFiles, 2), vbLf))

For intCount = 0 To UBound(vntPictureFiles)
...
  Thema: Anzahl von verschiedenen Werten ermitteln und sortieren 
Phelan XLPH

Antworten: 36
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 21:04   Titel: AW: Anzahl von verschiedenen Werten ermitteln und sortieren Version: Office 2007
Also bei mir läufts mit der erweieterten 'Select Case' durch.
  Thema: Probleme mit zweidimensionalen Array 
Phelan XLPH

Antworten: 7
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 20:56   Titel: AW: Probleme mit zweidimensionalen Array Version: Office 2007
Sub x()
Dim i As Long
Dim j As Long
Dim Daten_EA As Variant
Dim Daten_Tab2 As Variant
Dim sIStufe As String
Dim sID As String
Dim uni As Object

Set uni = CreateObject("scripting.dictionary")

sIStufe = frm_Tool.cb_IStufe.Value

Daten_Tab2 = Tabelle2.Cells(1).CurrentRegion
ReDim Daten_EA(1 To UBound(Daten_Tab2), 1 To 2)

'Ermittlung Anzahl der Zeilen in der Tabelle2
For i = 2 To UBound(Daten_Tab2)
'Sucht nach den Inhalt der Combo-Auswahl in der Tabelle2 in der Spalte 6
If Daten_Tab2(i, 6) = sIStufe Then
'Bei Übereinstimmung, ermitteln, ob in der Spalte4 nicht diese Strings enthalten sind
If Daten_Tab2(i, 4) <> "NOCH_NICHT_VORHANDEN" Then
If Daten_Tab2(i, 4) <> "NICHT_MEHR_VORHANDEN" Then
'Wenn alles passt, dann in de ...
  Thema: Dringend: Laufzeitoptimierung bei Datenübergabe 
Phelan XLPH

Antworten: 7
Aufrufe: 116

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 20:33   Titel: AW: Dringend: Laufzeitoptimierung bei Datenübergabe Version: Office 2007
...das dürfte keine 10tel sec. laufen.
  Thema: Arbeitsplanung 
Phelan XLPH

Antworten: 13
Aufrufe: 415

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 18:56   Titel: AW: Arbeitsplanung Version: Office 2011 (Mac)
Cool
  Thema: Dringend: Laufzeitoptimierung bei Datenübergabe 
Phelan XLPH

Antworten: 7
Aufrufe: 116

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 18:47   Titel: AW: Dringend: Laufzeitoptimierung bei Datenübergabe Version: Office 2007
'Find last row of table
Function LastRow(wsBlatt As Worksheet) As Long
If WorksheetFunction.CountA(wsBlatt.Cells) Then
LastRow = wsBlatt.Cells.Find("*", , , , xlByRows, xlPrevious).Row
End If
'Dim i As Integer, lngMin As Long, lngMax As Long
'For i = 1 To 16384
' lngMin = Worksheets("Data").Cells(1048576, i).End(xlUp).Row
' If lngMax < lngMin Then
' lngMax = lngMin
' End If
'Next i
'LastRow = lngMax
End Function
'Transfer input data to datasheet
'("LastRow" is a sub located in Module "mdlLastRow")

Private Sub CommandButton1_Click()
Dim lLZ As Long
Dim i As Integer
Application.ScreenUpdating = False


With Worksheets("Data")

lLZ = LastRow(.Cells.Parent)
If lLZ = 0 Then lLZ = 1

For i = 1 To 12
...
  Thema: Verschachtelte Dropdown 
Phelan XLPH

Antworten: 10
Aufrufe: 460

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 18:12   Titel: AW: Verschachtelte Dropdown Version: Office 2010
...schwierig aber irgendwie machbar.
  Thema: Arbeitsblätter über Kombinationsfeld auswähle 
Phelan XLPH

Antworten: 24
Aufrufe: 513

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 13:51   Titel: AW: Arbeitsblätter über Kombinationsfeld auswähle Version: Office 2010
Hier noch ne Variante:
  Thema: Arbeitsblätter über Kombinationsfeld auswähle 
Phelan XLPH

Antworten: 24
Aufrufe: 513

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 12:47   Titel: AW: Arbeitsblätter über Kombinationsfeld auswähle Version: Office 2010
in meinem Beispiel bleibt Tabelle1 außen vor, bei Phelan wird auch diese ausgeblendet.

Bei mir aist Tabeel1 die aktive Tabelle, darin befindet sich der Code.
If Not wks Is ActiveSheet Then !!!!

Die Vorgaben haben sich geändert deswegen ist mein Code nicht das
was erwünscht ist.
  Thema: Liste von oben statt von unten beginnend durchsuchen 
Phelan XLPH

Antworten: 6
Aufrufe: 79

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 12:41   Titel: AW: Liste von oben statt von unten beginnend durchsuchen Version: Office 2003
Das Dictionary ist unnötig:

Sub x()
Dim i As Long
Dim iFund As Long
Dim Ziel As Worksheet
Dim arData As Variant
Dim sAlarm As String
Dim dblDateLast As Double

Set Ziel = Tabelle3

'==========================================================
'Zusätzliche Informationen Laden
'==========================================================
With Ziel
arData = .Range("A1").CurrentRegion
End With

sAlarm = Label1.Caption

For i = 2 To UBound(arData)
If arData(i, 4) = sAlarm Then
If dblDateLast < arData(i, 2) + arData(i, 3) Then
dblDateLast = arData(i, 2) + arData(i, 3)
iFund = i
End If
End If
Next
UserForm6.TextBox2 = arData(iFund, 5)

End Sub
  Thema: Liste von oben statt von unten beginnend durchsuchen 
Phelan XLPH

Antworten: 6
Aufrufe: 79

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 12:04   Titel: AW: Liste von oben statt von unten beginnend durchsuchen Version: Office 2003
In welcher Spalte stehen Alarm, Datum, Uhrzeit?
  Thema: Leerstellen in allen Arbeitsblätternamen durch _ ersetzen 
Phelan XLPH

Antworten: 4
Aufrufe: 69

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Jan 2013, 12:00   Titel: AW: Leerstellen in allen Arbeitsblätternamen durch _ ersetze Version: Office 2010
- Alt+F11
- Einfügen -> Modul
- Code einfügen
- F5 (Code ausführen)
 
Seite 84 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 81, 82, 83, 84, 85, 86, 87 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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