Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 347 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 344, 345, 346, 347, 348, 349, 350 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Daten übernehmen - V-Lookup - #N/A entfernen 
Phelan XLPH

Antworten: 7
Aufrufe: 828

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 11:08   Titel: AW: Daten übernehmen - V-Lookup - #N/A entfernen Version: Office 2007
[D4:D65536] = WorksheetFunction.VLookup([A4:A65536], Sheets("S7 - S88 Verpackung").[A4:M65536], 2, False)

...und das funktioniert? Confused
  Thema: Letzte beschriebene Zelle in Spalte 
Phelan XLPH

Antworten: 6
Aufrufe: 1175

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 11:00   Titel: AW: Letzte beschriebene Zelle in Spalte Version: Office 2007
Ja wenn unterhalb von F4 nix steht dann ist es immer 4.
Vielleicht solltest du eine andere Spalte zur Ermittlung der letzten freien Zellen
nehmen!

Ich weiß nicht wohin die Reise geht, du beschreibst nur den Ist-Zustand.
  Thema: Gültigkeitsliste aus gefilterter Liste erstellen 
Phelan XLPH

Antworten: 15
Aufrufe: 572

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:56   Titel: AW: Gültigkeitsliste aus gefilterter Liste erstellen Version: Office 2003
Kann ich dir so nicht sagen, aber du weißt ja selber dass Selection nicht
nötig ist.



Wüsste jetzt auch nicht woran es liegen könnte.

Aber müste so fumtionieren:
With Cells(3, 3).Validation
  Thema: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen löschen 
Phelan XLPH

Antworten: 14
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:50   Titel: AW: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen lösch Version: Office 2003
... Razz
  Thema: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen löschen 
Phelan XLPH

Antworten: 14
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:22   Titel: AW: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen lösch Version: Office 2003
Worksheets("stafinal")
Worksheets("fertig")

versuchs mal so!
  Thema: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen löschen 
Phelan XLPH

Antworten: 14
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:12   Titel: AW: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen lösch Version: Office 2003
Da hab ich aber nix geändert.

Wie heißt denn deine Quell-Tabelle und nenne mir bitte die Ziel-Tabelle.
  Thema: Letzte beschriebene Zelle in Spalte 
Phelan XLPH

Antworten: 6
Aufrufe: 1175

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:10   Titel: AW: Letzte beschriebene Zelle in Spalte Version: Office 2007
Hallo,

kann mir BITTE einer helfen wie ich ab Zeile F4 prüfe ob beschrieben ist oder nicht?

Das machst du bereits hiermit:
With Sheets(Sheets.Count)
LetzteF = .Cells(Rows.Count, "F").End(xlUp).Row + 1
If LetztF < 4 Then LetzteF = 4
End With
  Thema: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen löschen 
Phelan XLPH

Antworten: 14
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:07   Titel: AW: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen lösch Version: Office 2003
Versuchs hiermit:

Sub ph()
Dim ar As Variant
Dim arOut As Variant
Dim a As Variant
Dim i As Long

With Tabelle1
With Intersect(.Range("A1").CurrentRegion, .Range("A:G"))
ar = WorksheetFunction.Transpose(.Resize(.Rows.Count - 1).Offset(1))
End With
End With

ReDim arOut(1 To UBound(ar) * UBound(ar, 2))
For Each a In ar
If a <> "" Then
i = i + 1
arOut(i) = a
End If
Next
ReDim Preserve arOut(1 To i)
Tabelle2.Range("A1").Resize(UBound(arOut)) = _
WorksheetFunction.Transpose(arOut)
End Sub
  Thema: Gültigkeitsliste aus gefilterter Liste erstellen 
Phelan XLPH

Antworten: 15
Aufrufe: 572

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:05   Titel: AW: Gültigkeitsliste aus gefilterter Liste erstellen Version: Office 2003
Das hatte ransi mal gepostet. Der Vorteil hierbei gegenüber dem Dataobject ist,
dass kein Bibliotheks-Verweis gesetzt werden muss.

Wo du das findest? Keine Ahnung, im Netz irgendwo.
  Thema: Zeilen ausblenden 
Phelan XLPH

Antworten: 7
Aufrufe: 183

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 10:00   Titel: AW: Zeilen ausblenden Version: Office 2007
Todsicher - es kann nur Zeilen - bzw. Spaltenweise ausgeblendet werden.

Was du machen kannst ist die Zelleninhalte zu verschieben statt zu kopieren.
Dabei entsteht keine falscher Bezug.
  Thema: Zeilen ausblenden 
Phelan XLPH

Antworten: 7
Aufrufe: 183

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 09:49   Titel: AW: Zeilen ausblenden Version: Office 2007
Meine Frage: Ist das überhaupt möglich?

NEIN.
  Thema: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen löschen 
Phelan XLPH

Antworten: 14
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 09:47   Titel: AW: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen lösch Version: Office 2003
Hallo david,

nimm den Code von oben und entferne die Apostrophs '].
  Thema: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen löschen 
Phelan XLPH

Antworten: 14
Aufrufe: 291

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2010, 09:13   Titel: AW: transponieren 1000 Zeilen mit 7 Zellen+ leerzellen lösch Version: Office 2003
Hallo,

oder so:

Sub ph()
Dim ar As Variant
Dim arOut As Variant
Dim a As Variant
Dim i As Long

With Tabelle1
With Intersect(.Range("A1").CurrentRegion, .Range("A:G"))
ar = WorksheetFunction.Transpose(.Resize(.Rows.Count - 1).Offset(1))
End With
End With

ReDim arOut(1 To WorksheetFunction.CountA(ar))
For Each a In ar
'If a <> "" Then
i = i + 1
arOut(i) = a
'End If
Next
ReDim Preserve arOut(1 To i)
Tabelle2.Range("A1").Resize(UBound(arOut)) = _
WorksheetFunction.Transpose(arOut)
End Sub
  Thema: Gültigkeitsliste aus gefilterter Liste erstellen 
Phelan XLPH

Antworten: 15
Aufrufe: 572

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Dez 2010, 21:09   Titel: AW: Gültigkeitsliste aus gefilterter Liste erstellen Version: Office 2003
Hallo,

oder so:

Sub ph_Gültigkeit_Setzen()
With Range("A1").CurrentRegion
.Resize(.Rows.Count - 1).Offset(1).Columns(1).SpecialCells(xlCellTypeVisible).Copy
End With
With Range("C3").Validation
.Delete
.Add xlValidateList, , , Replace(ClpLesen, vbCrLf, ",")
End With
Application.CutCopyMode = False
End Sub


Public Function ClpLesen() As String
Dim IE As Object
On Error Resume Next
Set IE = CreateObject("HTMLfile")
ClpLesen = IE.ParentWindow.ClipboardData.GetData("text")
Set IE = Nothing
End Function
  Thema: TextBoxen summieren, Typen unverträglich 
Phelan XLPH

Antworten: 5
Aufrufe: 647

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2010, 23:14   Titel: AW: TextBoxen summieren, Typen unverträglich Version: Office 2010
welche werte sollen addiert werden?
 
Seite 347 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 344, 345, 346, 347, 348, 349, 350 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver