Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 440 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 437, 438, 439, 440, 441, 442, 443 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Werte aus Spalten per Makro kopieren (transpose) 
Phelan XLPH

Antworten: 14
Aufrufe: 437

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Aug 2010, 10:31   Titel: AW: Werte aus Spalten per Makro kopieren (transpose) Version: Office 2003
Dann teste den Vorschlag von Ben:

(habs noch etwas gekürzt)


Sub Transpose_Special()
Dim src As Worksheet, dst As Worksheet
Dim lTransLen&, lCopyLen&, lFirstCol&, lFirstTransCol&, lFirstRow&, lRow&
Dim lDFirstCol&, lDFirstRow&, lDRow&

' **** Anpassen ****************************
Set src = ThisWorkbook.Worksheets("Tabelle1")
lFirstRow = 1
lFirstCol = 1
lFirstTransCol = 5
Set dst = ThisWorkbook.Worksheets("Tabelle2")
lDFirstRow = 1
lDFirstCol = 1
' *******************************************

lCopyLen = lFirstTransCol - lFirstCol
lDRow = lDFirstRow
For lRow = lFirstRow To src.Cells(src.Rows.Count, lFirstCol).End(xlUp).Row
lTransLen = src.Cells(lRow, src.Columns.Count).End(xlToLeft).Column - lFirstTransCol + 1

src.Cells(lRow, lFirstTransCol).Resize(1, lTransLen&# ...
  Thema: Excel VBA Kalender Befehle 
Phelan XLPH

Antworten: 15
Aufrufe: 5267

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Aug 2010, 09:58   Titel: AW: Excel VBA Kalender Befehle Version: Office 2003
hier ein Bsp:
  Thema: suchen mit % Makro 
Phelan XLPH

Antworten: 3
Aufrufe: 150

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Aug 2010, 09:11   Titel: AW: suchen mit % Makro Version: Office 2003
Hallo,

ersetze das:
If Right$(objRang.Text, 2) = "1" Then
durch das:
If InStr(objRang.Text, "%") Then
  Thema: Werte aus Spalten per Makro kopieren (transpose) 
Phelan XLPH

Antworten: 14
Aufrufe: 437

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Aug 2010, 08:51   Titel: AW: Werte aus Spalten per Makro kopieren (transpose) Version: Office 2003
Hallo Philip,

Ich bin jetzt mal von konstant 40 Werten ausgegangen.

Sub ph_Transp()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long
Dim n As Long
Dim k As Integer
Dim j As Integer

arr = Tabelle1.Range("A1").CurrentRegion

ReDim arrOut(1 To UBound(arr) * 40, 1 To 5)
For i = 2 To UBound(arr)
For j = 5 To UBound(arr, 2)
n = n + 1
For k = 1 To 4
arrOut(n, k) = arr(i, k)
Next
arrOut(n, 5) = arr(i, j)
Next
n = n + 1 ' mit leerzeile nach jedem Block
Next

With Tabelle2
.UsedRange.Clear
.Range("A1").Resize(UBound(arrOut), UBound(arrOut, 2)) = arrOut
End With

End Sub
  Thema: Excel VBA Kalender Befehle 
Phelan XLPH

Antworten: 15
Aufrufe: 5267

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Aug 2010, 08:48   Titel: AW: Excel VBA Kalender Befehle Version: Office 2003
Un worin befindet sich der Kalender?
  Thema: Formel oder VBA? 
Phelan XLPH

Antworten: 3
Aufrufe: 168

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2010, 22:58   Titel: AW: Formel oder VBA? Version: Office XP (2002)
...und ich brauche 1000€ für solche eine Forderung
  Thema: Excel VBA Kalender Befehle 
Phelan XLPH

Antworten: 15
Aufrufe: 5267

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2010, 22:57   Titel: AW: Excel VBA Kalender Befehle Version: Office 2003
Was für ein Kalender denn?
  Thema: Spalte prüfen ob nur Integer enthalten 
Phelan XLPH

Antworten: 4
Aufrufe: 379

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Aug 2010, 22:55   Titel: AW: Spalte prüfen ob nur Integer enthalten Version: Office 2007
Sub ph()
With Tabelle1.Range("A:A")
If WorksheetFunction.CountA(.Cells) - WorksheetFunction.Count(.Cells) > 0 Then
MsgBox "Anzahl Strings: " & WorksheetFunction.CountA(.Cells) - WorksheetFunction.Count(.Cells)
End If
End With
End Sub
  Thema: Variablen aus Zelle holen 
Phelan XLPH

Antworten: 4
Aufrufe: 300

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 23:34   Titel: AW: Variablen aus Zelle holen Version: Office 2007
Kannst du nochmal den Ablauf genau erklären und von wo genau nach wo
kopiert werden soll?
  Thema: Enable/Disable Dropdown 
Phelan XLPH

Antworten: 3
Aufrufe: 1113

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 21:22   Titel: AW: Enable/Disable Dropdown Version: Office XP (2002)
oder hier:
http://www.office-loesung.de/ftopic355925_0_0_asc.php
  Thema: Variablen aus Zelle holen 
Phelan XLPH

Antworten: 4
Aufrufe: 300

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 21:20   Titel: AW: Variablen aus Zelle holen Version: Office 2007
zeig mal mehr von deinem code
  Thema: Listview Sortierpfeile 
Phelan XLPH

Antworten: 10
Aufrufe: 1674

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 17:11   Titel: AW: Listview Sortierpfeile Version: Office 2007
...und das auch größer als gewünscht.

Danke trotzdem.
  Thema: Listview Sortierpfeile 
Phelan XLPH

Antworten: 10
Aufrufe: 1674

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 16:54   Titel: AW: Listview Sortierpfeile Version: Office 2007
@isabelle,

so weit war ich auch schon und wie bekomme ich das Icon an den rechten Rand
der Spalte?
  Thema: Via VBA bei markierten Zeilen die Zeilennummer auslesen 
Phelan XLPH

Antworten: 2
Aufrufe: 2040

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 16:50   Titel: AW: Via VBA bei markierten Zeilen die Zeilennummer auslesen Version: Office 2007
Hallo,

ins codefenster der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngRow As Range
If Selection.Rows.Count > 1000 Then Exit Sub
For Each rngRow In Selection.Rows
Cells(rngRow.Row, 24) = IIf(Cells(rngRow.Row, 24) = "ja", "nein", "ja")
Next
End Sub
  Thema: Datensatz Struktur ändern 
Phelan XLPH

Antworten: 5
Aufrufe: 315

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Aug 2010, 15:02   Titel: AW: Datensatz Struktur ändern Version: Office 2007
Sub ph_Transp()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long
Dim n As Long
Dim k As Integer

With Tabelle1 'Anpassen
arr = .Range("A1").CurrentRegion
End With

ReDim arrOut(1 To UBound(arr) * 6, 1 To 2)
For i = 1 To UBound(arr)
For k = 2 To UBound(arr, 2)
If arr(i, k) <> "" Then
n = n + 1
arrOut(n, 1) = arr(i, 1)
arrOut(n, 2) = arr(i, k)
End If
Next
'n = n + 1 ' mit leerzeile nach jedem Block
Next

With Tabelle2 'Anpassen
.UsedRange.Clear
.Range("A1").Resize(UBound(arrOut), UBound(arrOut, 2)) = arrOut
End With

End Sub
 
Seite 440 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 437, 438, 439, 440, 441, 442, 443 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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